From 1fd757c2ad8b57c65c3447508074b16728c13d9f Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Sun, 7 Dec 2014 14:46:33 -0800 Subject: [PATCH] Remove coerce dependency for ghc 7.6 --- src/App.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/App.hs b/src/App.hs index 7c87d6ebe..92b765e73 100644 --- a/src/App.hs +++ b/src/App.hs @@ -26,7 +26,6 @@ import Network.HTTP.Base (urlEncodeVars) import Network.Wai import Data.Aeson -import Data.Coerce import Data.Monoid import qualified Hasql as H import qualified Hasql.Postgres as H @@ -166,6 +165,7 @@ app req = schema = requestedSchema hdrs range = rangeRequested hdrs allOrigins = ("Access-Control-Allow-Origin", "*") :: Header + coerce (q, args, All b) = (q, args, b) isSqlError :: H.Error -> Maybe H.Error