Fix "database or disk is full" errors

source/AirGQL/GraphQL.hs

@@ -1657,7 +1657,7 @@ getDerivedSchema
   -> [TableEntryRaw]
   -> IO (Schema IO)
 getDerivedSchema schemaConf connection dbId tables = do
-  sqlitePragmas <- getSQLitePragmas schemaConf.pragmaConf
+  let sqlitePragmas = getSQLitePragmas schemaConf.pragmaConf
   P.forM_ sqlitePragmas (execute_ connection)
 
   queries <- queryType connection schemaConf.accessMode dbId tables

source/AirGQL/Servant/SqlQuery.hs

@@ -117,7 +117,7 @@ sqlQueryPostHandler pragmaConf dbId sqlPost = do
           defaultConfig.sqlTimeoutTime
             * microsecondsPerSecond
 
-      sqlitePragmas <- liftIO $ getSQLitePragmas pragmaConf
+      let sqlitePragmas = getSQLitePragmas pragmaConf
 
       let
         performSqlOperations =

source/AirGQL/Types/PragmaConf.hs

@@ -36,13 +36,12 @@ defaultConf =
 
 
 -- | Get the SQLite pragmas to use for a database
-getSQLitePragmas :: PragmaConf -> IO [SS.Query]
-getSQLitePragmas pragConf = do
+getSQLitePragmas :: PragmaConf -> [SS.Query]
+getSQLitePragmas pragConf =
   let
     getPrag key value =
       SS.Query $ "PRAGMA " <> key <> " = " <> value
-
-  pure
+  in
     [ getPrag "case_sensitive_like" "True"
     , getPrag "foreign_keys" "True"
     , -- TODO: Check if this really works
@@ -50,7 +49,6 @@ getSQLitePragmas pragConf = do
     , getPrag "max_page_count" $ show @Int pragConf.maxPageCount
     , getPrag "recursive_triggers" $ show @Bool pragConf.allowRecursTrig
     , -- TODO: Reactivate after https://sqlite.org/forum/forumpost/d7b9a365e0
-      --       (Also activate in SqlQuery.hs)
       -- , getPrag "trusted_schema" "False"
       getPrag "writable_schema" "False"
     ]