Beginning cleanup

src/Main.hs

@@ -19,13 +19,13 @@ import qualified Servant        as S
 main :: IO ()
 main = run port $ serve proxy app
 
-app :: Server API
+app :: Server AppAPI
 app = α $ rootHandler
      :<|> userListHandler
      :<|> userGetHandler
      :<|> userPostHandler
 
-α :: ServerT API AppEff -> ServerT API Handler
+α :: ServerT AppAPI AppEff -> ServerT AppAPI Handler
 α = hoistServer proxy 
   $ Handler 
   . ExceptT 
@@ -38,5 +38,5 @@ app = α $ rootHandler
 port :: Int
 port = 8080
 
-proxy :: Proxy API
+proxy :: Proxy AppAPI
 proxy = Proxy