small syntax changes

Mast3rwaf1z · Nov 6, 2024 · cb96ba5 · cb96ba5
1 parent f95419c
commit cb96ba5
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/app/Api/Api.hs b/app/Api/Api.hs
@@ -103,7 +103,7 @@ apiMap = [
             filename <- getRequestBodyChunk r
             editor_root <- getEditorRoot
             files <- getDirectoryContents editor_root
-            if elem (unpackBS filename) files then do
+            if unpackBS filename `elem` files then do
                 return (status400, j2s [aesonQQ|{"message":"Error! file already exists"}|], jsonHeaders)
             else do
                 handle <- openFile (editor_root ++ "/" ++ unpackBS filename) WriteMode
@@ -195,15 +195,15 @@ apiMap = [
                     (DatabaseDelete table id) -> do
                         case table of
                             "visits" -> do
-                                runDb $ deleteWhere [VisitRid ==. id] :: IO ()
+                                runDb $ deleteWhere [VisitRid ==. id]
                             "guestbook" -> do
-                                runDb $ deleteWhere [GuestbookEntryRid ==. id] :: IO ()
+                                runDb $ deleteWhere [GuestbookEntryRid ==. id]
                             "snake" -> do
-                                runDb $ deleteWhere [SnakeRid ==. id] :: IO ()
+                                runDb $ deleteWhere [SnakeRid ==. id]
                             "users" -> do
-                                runDb $ deleteWhere [UserRid ==. id] :: IO ()
+                                runDb $ deleteWhere [UserRid ==. id]
                             "valid_tokens" -> do
-                                runDb $ deleteWhere [TokenRid ==. id] :: IO ()
+                                runDb $ deleteWhere [TokenRid ==. id]
                             _ -> putStr "no table, doing nothing..."
                         return (status200, messageResponse "ok", jsonHeaders)
                     EmptyDatabaseDelete -> return (status400, messageResponse "Invalid JSON", jsonHeaders)