Do hlint 2.1 hints

2018-11-06 11:54:10 -05:00
parent 63ead89470
commit dadfe965b9
23 changed files with 49 additions and 50 deletions
@@ -95,7 +95,7 @@ parseJWK str =
 hs256jwk :: ByteString -> JWK
 hs256jwk key =
  fromKeyMaterial km
-    & jwkUse .~ Just Sig
-    & jwkAlg .~ (Just $ JWSAlg HS256)
+    & jwkUse ?~ Sig
+    & jwkAlg ?~ JWSAlg HS256
 where
  km = OctKeyMaterial (OctKeyParameters (JOSE.Types.Base64Octets key))