From abb72dce61fa0cb5cd822b2071330e540ac97afe Mon Sep 17 00:00:00 2001 From: osmarks Date: Sun, 24 Sep 2017 12:28:34 +0100 Subject: [PATCH] Remove a few unused imports --- src/Config.hs | 2 +- src/Main.hs | 3 --- src/Model.hs | 1 - 3 files changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Config.hs b/src/Config.hs index fe33c87..891968a 100644 --- a/src/Config.hs +++ b/src/Config.hs @@ -7,7 +7,6 @@ module Config where import Control.Monad.Reader import Control.Monad.Except -import Database.Persist import Database.Persist.Sql import Servant @@ -22,6 +21,7 @@ newtype App a = App appToServer :: HandlerConfig -> App :~> Handler appToServer cfg = NT (flip runReaderT cfg . runApp) +-- Runs a database action in the App monad runDB :: (MonadReader HandlerConfig m, MonadIO m) => SqlPersistT IO b -> m b runDB query = do db <- asks db diff --git a/src/Main.hs b/src/Main.hs index 5719466..b6fa9fd 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -1,8 +1,5 @@ module Main where -import Network.Wai -import Network.Wai.Handler.Warp - import API main :: IO () diff --git a/src/Model.hs b/src/Model.hs index 7b66194..5eea49e 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -17,7 +17,6 @@ import GHC.Generics import Database.Persist import Database.Persist.Sql import Database.Persist.TH -import qualified Data.Text as T import Data.Text (Text(..)) import Data.Aeson