Remove a few unused imports
This commit is contained in:
parent
a61b031d99
commit
abb72dce61
|
@ -7,7 +7,6 @@ module Config where
|
||||||
import Control.Monad.Reader
|
import Control.Monad.Reader
|
||||||
import Control.Monad.Except
|
import Control.Monad.Except
|
||||||
|
|
||||||
import Database.Persist
|
|
||||||
import Database.Persist.Sql
|
import Database.Persist.Sql
|
||||||
import Servant
|
import Servant
|
||||||
|
|
||||||
|
@ -22,6 +21,7 @@ newtype App a = App
|
||||||
appToServer :: HandlerConfig -> App :~> Handler
|
appToServer :: HandlerConfig -> App :~> Handler
|
||||||
appToServer cfg = NT (flip runReaderT cfg . runApp)
|
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 :: (MonadReader HandlerConfig m, MonadIO m) => SqlPersistT IO b -> m b
|
||||||
runDB query = do
|
runDB query = do
|
||||||
db <- asks db
|
db <- asks db
|
||||||
|
|
|
@ -1,8 +1,5 @@
|
||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
import Network.Wai
|
|
||||||
import Network.Wai.Handler.Warp
|
|
||||||
|
|
||||||
import API
|
import API
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
|
|
|
@ -17,7 +17,6 @@ import GHC.Generics
|
||||||
import Database.Persist
|
import Database.Persist
|
||||||
import Database.Persist.Sql
|
import Database.Persist.Sql
|
||||||
import Database.Persist.TH
|
import Database.Persist.TH
|
||||||
import qualified Data.Text as T
|
|
||||||
import Data.Text (Text(..))
|
import Data.Text (Text(..))
|
||||||
import Data.Aeson
|
import Data.Aeson
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue