Appease hlint

2016-01-24 18:09:20 -08:00
parent 616541aaee
commit cbb2ba7d42
4 changed files with 24 additions and 24 deletions
@@ -66,9 +66,9 @@ jwtClaims secret input time =
    claim prop = prop . JWT.claims <$> decoded
    customClaims = claim JWT.unregisteredClaims

-- | Receives the name of a role and returns a SET ROLE statement
+{-| Receives the name of a role and returns a SET ROLE statement -}
 setRole :: Text -> BS.ByteString
-setRole role = "set local role " <> cs (pgFmtLit role) <> ";"
+setRole r = "set local role " <> cs (pgFmtLit r) <> ";"


 {-|