Merge remote-tracking branch 'begriffs/v3' into v3

src/PostgREST/App.hs

@@ -399,7 +399,7 @@ convertJson v = (,) <$> (header <$> normalized) <*> (vals <$> normalized)
     normalized = groupByKey =<< normalizeValue v
 
     vals :: [(Text, [Value])] -> [[Value]]
-    vals a = transpose $ map snd a
+    vals = transpose . map snd
 
     header :: [(Text, [Value])] -> [Text]
     header = map fst

src/PostgREST/Auth.hs

@@ -12,15 +12,12 @@ In the test suite there is an example of simple login function that can be used
 very simple authentication system inside the PostgreSQL database.
 -}
 module PostgREST.Auth (
-  setRole
+    setRole
   , claimsToSQL
   , jwtClaims
   , tokenJWT
   ) where
 
---line needed for ghc 7.8
---import           Data.Functor            ((<$>))
-
 import           Data.Aeson              (Value (..), Object)
 import           Data.Aeson.Types        (emptyObject, emptyArray)
 import           Data.Vector             as V (null, head)

src/PostgREST/Middleware.hs

@@ -3,9 +3,6 @@
 
 module PostgREST.Middleware where
 
--- needed for ghc 7.8
--- import           Data.Functor ((<$>))
-
 import           Data.Maybe                    (fromMaybe, isNothing)
 import           Data.Monoid
 import           Data.Text

src/PostgREST/Parsers.hs

@@ -4,13 +4,9 @@ module PostgREST.Parsers
 where
 
 import           Control.Applicative hiding ((<$>))
---lines needed for ghc 7.8
--- import           Data.Functor ((<$>))
--- import           Data.Traversable (traverse)
-
---import           Control.Monad                 (join)
---import           Data.List                     (delete, find)
---import           Data.Maybe
+import           Control.Monad                 (join)
+import           Data.List                     (delete, find)
+import           Data.Maybe
 import           Data.Monoid
 import           Data.String.Conversions       (cs)
 import           Data.Text                     (Text)