diff --git a/src/PostgREST/Auth.hs b/src/PostgREST/Auth.hs
index 8b8f6e32b..20a7d0285 100644
--- a/src/PostgREST/Auth.hs
+++ b/src/PostgREST/Auth.hs
@@ -44,7 +44,7 @@ tokenJWT secret (Array a) = JWT.encodeSigned JWT.HS256 (JWT.secret secret)
                                JWT.def { JWT.unregisteredClaims = fromHashMap o }
                           where
                             Object o = if V.null a then emptyObject else V.head a
+                            fromHashMap :: Object -> JWT.ClaimsMap
+                            fromHashMap = M.fromList . H.toList
 tokenJWT secret _          = tokenJWT secret emptyArray
 
-fromHashMap :: Object -> JWT.ClaimsMap
-fromHashMap = M.fromList . H.toList