From a0886694f73fc382d78da79ab8bfb27475757bab Mon Sep 17 00:00:00 2001 From: adambrangenberg Date: Wed, 24 Dec 2025 03:40:10 +0100 Subject: Implemented basic auth, refactor --- src/Database.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 src/Database.hs (limited to 'src/Database.hs') diff --git a/src/Database.hs b/src/Database.hs new file mode 100644 index 0000000..1bc7a6b --- /dev/null +++ b/src/Database.hs @@ -0,0 +1,18 @@ +{-# LANGUAGE OverloadedStrings #-} + +module Database (runDb, runMigrations) where + +import Control.Monad.Logger (runStderrLoggingT, LoggingT) +import Database.Persist.Sqlite (createSqlitePool, SqlBackend, runSqlPool, runMigration) +import Control.Monad.Reader (ReaderT) +import Data.User (migrateAll) + +-- | Run a database query in the IO monad. +runDb :: ReaderT SqlBackend (LoggingT IO) a -> IO a +runDb query = runStderrLoggingT $ do + pool <- createSqlitePool "jamaa.db" 10 + runSqlPool query pool + +-- | Run database migrations. +runMigrations :: IO () +runMigrations = runDb $ runMigration migrateAll -- cgit v1.2.3