Standardize indentation

src/PostgREST/App.hs

@@ -119,8 +119,7 @@ app conf reqBody req =
               encode . object $ [("message", String "Failed to parse user.")]
             Just u -> do
               setRole authenticator
-              login <- signInRole (cs $ userId u)
+              login <- signInRole (cs $ userId u) (cs $ userPass u)
-                              (cs $ userPass u)
               case login of
                 LoginSuccess role uid ->
                   return $ responseLBS status201 [ jsonH ] $
@@ -271,9 +270,9 @@ contentRangeH from to total =
   ("Content-Range",
     if total == 0 || from > total
     then "*/" <> cs (show total)
-    else cs (show from)  <> "-"
+    else cs (show from)
-       <> cs (show to)    <> "/"
+      <> "-" <> cs (show to)
-       <> cs (show total)
+      <> "/" <> cs (show total)
   )
 
 requestedSchema :: Text -> Maybe BS.ByteString -> Text
@@ -282,7 +281,8 @@ requestedSchema v1schema accept =
     Just [[_, ver]] -> if ver == "1" then v1schema else cs ver
     _ -> v1schema
 
-  where verRegex = "version[ ]*=[ ]*([0-9]+)" :: BS.ByteString
+  where
+    verRegex = "version[ ]*=[ ]*([0-9]+)" :: BS.ByteString
     verStr = (=~ verRegex) <$> accept :: Maybe [[BS.ByteString]]
 
 

src/PostgREST/Auth.hs

@@ -56,10 +56,10 @@ setRole :: Text -> H.Tx P.Postgres s ()
 setRole role = H.unitEx $ B.Stmt ("set local role " <> cs (pgFmtLit role)) V.empty True
 
 setUserId :: Text -> H.Tx P.Postgres s ()
-setUserId uid = if uid /= "" then
+setUserId uid =
-  H.unitEx $ B.Stmt ("set local user_vars.user_id = " <> cs (pgFmtLit uid)) V.empty True
+  if uid /= ""
-else
+    then H.unitEx $ B.Stmt ("set local user_vars.user_id = " <> cs (pgFmtLit uid)) V.empty True
-  resetUserId
+    else resetUserId
 
 resetUserId :: H.Tx P.Postgres s ()
 resetUserId = H.unitEx [H.stmt|reset user_vars.user_id|]

src/PostgREST/Main.hs

@@ -65,11 +65,14 @@ main = do
 
   poolSettings <- maybe (fail "Improper session settings") return $
     H.poolSettings (fromIntegral $ configPool conf) 30
-  pool :: H.Pool P.Postgres
+  pool :: H.Pool P.Postgres <- H.acquirePool pgSettings poolSettings
-          <- H.acquirePool pgSettings poolSettings
 
   resOrError <- H.session pool isServerVersionSupported
-  either (fail . show) (\supported -> unless supported $ fail "Cannot run in this PostgreSQL version, PostgREST needs at least 9.2.0") resOrError
+  either (fail . show)
+    (\supported ->
+      unless supported $
+        fail "Cannot run in this PostgreSQL version, PostgREST needs at least 9.2.0"
+    ) resOrError
 
   runSettings appSettings $ middle $ \req respond -> do
     body <- strictRequestBody req

src/PostgREST/PgQuery.hs

@@ -105,7 +105,8 @@ asCsvWithCount :: QualifiedIdentifier -> StatementT
 asCsvWithCount table = withCount . asCsv table
 
 asCsv :: QualifiedIdentifier -> StatementT
-asCsv table s = s { B.stmtTemplate =
+asCsv table s = s {
+  B.stmtTemplate =
     "(select string_agg(quote_ident(column_name::text), ',') from "
     <> "(select column_name from information_schema.columns where quote_ident(table_schema) || '.' || table_name = '"
     <> fromQi table <> "' order by ordinal_position) h) || '\r' || "
@@ -116,7 +117,8 @@ asJsonWithCount :: StatementT
 asJsonWithCount = withCount . asJson
 
 asJson :: StatementT
-asJson s = s { B.stmtTemplate =
+asJson s = s {
+  B.stmtTemplate =
     "array_to_json(array_agg(row_to_json(t)))::character varying from ("
     <> B.stmtTemplate s <> ") t" }
 
@@ -143,9 +145,13 @@ select table params =
 selectTerm :: QualifiedIdentifier -> T.Text -> PStmt
 selectTerm table col =
   case T.splitOn "::" col of
-        [colName,castTo] -> B.Stmt ("CAST (" <> pgFmtJsonbPath table (cs colName) <> " AS " <> castToSafe <> " )" <> asT (jsonbPath colName)) empty True
+    [colName,castTo] ->
+      B.Stmt (
+          "CAST (" <> pgFmtJsonbPath table (cs colName) <> " AS "
+          <> castToSafe <> " )" <> asT (jsonbPath colName)
+        ) empty True
       where castToSafe = T.filter ( `elem` ['a'..'z'] ) castTo
-        _-> B.Stmt (pgFmtJsonbPath table (cs col) <> asT (jsonbPath col)) empty True
+    _ -> B.Stmt (pgFmtJsonbPath table (cs col) <> asT (jsonbPath col)) empty True
   where
     jsonbPath :: T.Text -> Maybe JsonbPath
     jsonbPath c = parseJsonbPath $ cs c
@@ -216,9 +222,9 @@ wherePred table (col, predicate) =
     opCode        = hasNot (head rest) headPredicate
     notOp         = hasNot headPredicate ""
     value         = hasNot (T.intercalate "." $ tail rest) (T.intercalate "." rest)
-    whiteList val = fromMaybe (cs (pgFmtLit val) <> "::unknown ")
+    whiteList val = fromMaybe
-                              (L.find ((==) . T.toLower $ val)
+      (cs (pgFmtLit val) <> "::unknown ")
-                                      ["null","true","false"])
+      (L.find ((==) . T.toLower $ val) ["null","true","false"])
     star c = if c == '*' then '%' else c
     unknownLiteral = (<> "::unknown ") . pgFmtLit
 

src/PostgREST/PgStructure.hs

@@ -60,7 +60,8 @@ tables schema = do
         and n.nspname = ?
         and (
           pg_has_role(c.relowner, 'USAGE'::text)
-                or has_table_privilege(c.oid, 'SELECT, INSERT, UPDATE, DELETE, TRUNCATE, REFERENCES, TRIGGER'::text) or has_any_column_privilege(c.oid, 'SELECT, INSERT, UPDATE, REFERENCES'::text)
+          or has_table_privilege(c.oid, 'SELECT, INSERT, UPDATE, DELETE, TRUNCATE, REFERENCES, TRIGGER'::text)
+          or has_any_column_privilege(c.oid, 'SELECT, INSERT, UPDATE, REFERENCES'::text)
         )
       order by relname
     |] schema

src/PostgREST/RangeQuery.hs

@@ -41,14 +41,14 @@ rangeRequested = (rangeParse =<<) . lookup hRange
 
 rangeLimit :: NonnegRange -> Maybe Int
 rangeLimit range =
-  case [rangeLower range, rangeUpper range]
+  case [rangeLower range, rangeUpper range] of
-    of [BoundaryBelow from, BoundaryAbove to] -> Just (1 + to - from)
+    [BoundaryBelow from, BoundaryAbove to] -> Just (1 + to - from)
     _ -> Nothing
 
 rangeOffset :: NonnegRange -> Int
 rangeOffset range =
-  case rangeLower range
+  case rangeLower range of
-    of BoundaryBelow from -> from
+    BoundaryBelow from -> from
     _ -> error "range without lower bound" -- should never happen
 
 rangeGeq :: Int -> NonnegRange