fix the missing status400 include

This commit is contained in:
Ruslan Talpa
2015-11-12 15:19:11 +02:00
parent eb94c507f9
commit 6e9a28ba3c
+1 -1
View File
@@ -11,7 +11,7 @@ import qualified Hasql as H
import qualified Hasql.Postgres as P import qualified Hasql.Postgres as P
import Network.HTTP.Types.Header (hAccept, hAuthorization) import Network.HTTP.Types.Header (hAccept, hAuthorization)
import Network.HTTP.Types.Status (status415) import Network.HTTP.Types.Status (status415, status400)
import Network.Wai (Application, Request (..), Response, import Network.Wai (Application, Request (..), Response,
requestHeaders, responseLBS) requestHeaders, responseLBS)
import Network.Wai.Middleware.Cors (cors) import Network.Wai.Middleware.Cors (cors)