From 0e172b8030748f9e5ea81f8e64581c8c220ae7fe Mon Sep 17 00:00:00 2001 From: Diogo Biazus Date: Wed, 29 Jun 2016 00:07:58 -0400 Subject: [PATCH] Port Auth to prolude --- src/PostgREST/Auth.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/PostgREST/Auth.hs b/src/PostgREST/Auth.hs index ed6591f4f..18f5c2be6 100644 --- a/src/PostgREST/Auth.hs +++ b/src/PostgREST/Auth.hs @@ -18,17 +18,15 @@ module PostgREST.Auth ( , tokenJWT ) where +import Protolude import Control.Lens import Data.Aeson (Value (..), parseJSON, toJSON) import Data.Aeson.Lens import Data.Aeson.Types (parseMaybe, emptyObject, emptyArray) -import qualified Data.ByteString as BS import qualified Data.Vector as V import qualified Data.HashMap.Strict as M -import Data.Maybe (fromMaybe, maybeToList, fromJust) -import Data.Monoid ((<>)) +import Data.Maybe (fromJust) import Data.String.Conversions (cs) -import Data.Text (Text) import Data.Time.Clock (NominalDiffTime) import PostgREST.QueryBuilder (pgFmtIdent, pgFmtLit, unquoted) import qualified Web.JWT as JWT @@ -39,7 +37,7 @@ import qualified Web.JWT as JWT have a claim called role, this one is mapped to a SET ROLE statement. -} -claimsToSQL :: M.HashMap Text Value -> [BS.ByteString] +claimsToSQL :: M.HashMap Text Value -> [ByteString] claimsToSQL claims = roleStmts <> varStmts where roleStmts = maybeToList $