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