From 4d527b0f20f6467cb535778b491d0a59ba984c08 Mon Sep 17 00:00:00 2001
From: Diogo Biazus <diogo@biazus.me>
Date: Sat, 3 Nov 2018 14:11:04 -0400
Subject: [PATCH] Apply some hlint suggestions

---
 src/PostgresWebsockets/Claims.hs | 4 ++--
 stack.yaml                       | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/PostgresWebsockets/Claims.hs b/src/PostgresWebsockets/Claims.hs
index 06204b1..dce6d91 100644
--- a/src/PostgresWebsockets/Claims.hs
+++ b/src/PostgresWebsockets/Claims.hs
@@ -89,8 +89,8 @@ claims2map = val2map . toJSON
 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))
 
diff --git a/stack.yaml b/stack.yaml
index 886c675..6627d26 100644
--- a/stack.yaml
+++ b/stack.yaml
@@ -1,4 +1,4 @@
-resolver: lts-12.14
+resolver: lts-12.16
 extra-deps: []
 ghc-options:
   postgres-websockets: -O2 -Wall -fwarn-identities -fno-warn-redundant-constraints