small cleanup suggested by @begriffs

This commit is contained in:
Ruslan Talpa
2015-09-29 19:16:25 +03:00
parent 94b1d2815c
commit 7f2c39ef94
2 changed files with 46 additions and 45 deletions
+1 -2
View File
@@ -61,8 +61,7 @@ library
if flag(ci) if flag(ci)
ghc-options: -Wall -W -Werror ghc-options: -Wall -W -Werror
else else
-- ghc-options: -Wall -W -O2 ghc-options: -Wall -W -O2
ghc-options: -Wall -W
default-language: Haskell2010 default-language: Haskell2010
default-extensions: OverloadedStrings, ScopedTypeVariables, QuasiQuotes default-extensions: OverloadedStrings, ScopedTypeVariables, QuasiQuotes
+25 -23
View File
@@ -1,4 +1,5 @@
{-# LANGUAGE FlexibleContexts #-} {-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE ScopedTypeVariables #-}
module PostgREST.App ( module PostgREST.App (
app app
, sqlError , sqlError
@@ -10,33 +11,34 @@ module PostgREST.App (
) where ) where
import Control.Monad (join) import qualified Blaze.ByteString.Builder as BB
import Control.Arrow ((***), second)
import Control.Applicative import Control.Applicative
import Control.Arrow (second, (***))
import Control.Monad (join)
import Data.Bifunctor (first) import Data.Bifunctor (first)
import Data.Text (Text, pack) import qualified Data.ByteString.Char8 as BS
import Data.Maybe (fromMaybe, mapMaybe, isJust, isNothing) import qualified Data.ByteString.Lazy as BL
import Text.Regex.TDFA ((=~)) import Data.CaseInsensitive (original)
import qualified Data.Csv as CSV
import Data.Functor.Identity
import qualified Data.HashMap.Strict as M
import Data.List (find, sortBy)
import Data.Maybe (fromMaybe, isJust, isNothing,
mapMaybe)
import Data.Ord (comparing) import Data.Ord (comparing)
import Data.Ranged.Ranges (emptyRange) import Data.Ranged.Ranges (emptyRange)
import qualified Data.HashMap.Strict as M
import Data.String.Conversions (cs)
import Data.CaseInsensitive (original)
import Data.List (sortBy, find)
import Data.Functor.Identity
import qualified Data.Set as S import qualified Data.Set as S
import qualified Data.ByteString.Lazy as BL import Data.String.Conversions (cs)
import qualified Data.ByteString.Char8 as BS import Data.Text (Text, pack)
import qualified Blaze.ByteString.Builder as BB import Text.Regex.TDFA ((=~))
import qualified Data.Csv as CSV
import Network.HTTP.Types.Status
import Network.HTTP.Types.Header
import Network.HTTP.Types.URI (parseSimpleQuery)
import Network.HTTP.Base (urlEncodeVars) import Network.HTTP.Base (urlEncodeVars)
import Network.HTTP.Types.Header
import Network.HTTP.Types.Status
import Network.HTTP.Types.URI (parseSimpleQuery)
import Network.Wai import Network.Wai
import Network.Wai.Parse (parseHttpAccept)
import Network.Wai.Internal (Response (..)) import Network.Wai.Internal (Response (..))
import Network.Wai.Parse (parseHttpAccept)
import Data.Aeson import Data.Aeson
import Data.Monoid import Data.Monoid
@@ -45,14 +47,14 @@ import qualified Hasql as H
import qualified Hasql.Backend as B import qualified Hasql.Backend as B
import qualified Hasql.Postgres as P import qualified Hasql.Postgres as P
import PostgREST.Types
import PostgREST.Config (AppConfig(..))
import PostgREST.Auth import PostgREST.Auth
import PostgREST.PgQuery import PostgREST.Config (AppConfig (..))
import PostgREST.RangeQuery
import PostgREST.PgStructure
import PostgREST.Parsers import PostgREST.Parsers
import PostgREST.PgQuery
import PostgREST.PgStructure
import PostgREST.QueryBuilder import PostgREST.QueryBuilder
import PostgREST.RangeQuery
import PostgREST.Types
import Prelude import Prelude