jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove coerce dependency for ghc 7.6

Browse Source
This commit is contained in:
Joe Nelson
2014-12-07 14:46:33 -08:00
parent 782d6520a2
commit 1fd757c2ad
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/App.hs
+1 -1
View File
@@ -26,7 +26,6 @@ import Network.HTTP.Base (urlEncodeVars)
import Network.Wai import Network.Wai
import Data.Aeson import Data.Aeson
import Data.Coerce
import Data.Monoid import Data.Monoid
import qualified Hasql as H import qualified Hasql as H
import qualified Hasql.Postgres as H import qualified Hasql.Postgres as H
@@ -166,6 +165,7 @@ app req =
schema = requestedSchema hdrs schema = requestedSchema hdrs
range = rangeRequested hdrs range = rangeRequested hdrs
allOrigins = ("Access-Control-Allow-Origin", "*") :: Header allOrigins = ("Access-Control-Allow-Origin", "*") :: Header
coerce (q, args, All b) = (q, args, b)
isSqlError :: H.Error -> Maybe H.Error isSqlError :: H.Error -> Maybe H.Error