Skip to content

Commit

Permalink
chore: Upgrade stack LTS snapshot to 21.9 (GHC 9.4.6).
Browse files Browse the repository at this point in the history
  • Loading branch information
iphydf committed Sep 1, 2023
1 parent a77ce40 commit fa1769d
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 7 deletions.
4 changes: 2 additions & 2 deletions src/GitHub/WebHook/Handler.hs
Original file line number Diff line number Diff line change
Expand Up @@ -12,10 +12,10 @@ import Crypto.Hash (HMAC, SHA1, digestToHexByteString, hmac,
hmacGetDigest)
import Data.Aeson (ToJSON (..), Value (..),
eitherDecodeStrict')
import qualified Data.Aeson.KeyMap as KeyMap
import Data.Aeson.Types (parseEither)
import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as BC8
import qualified Data.HashMap.Strict as HashMap
import Data.Text (Text)
import qualified Data.Text as Text
import Data.Text.Encoding (decodeUtf8)
Expand Down Expand Up @@ -77,7 +77,7 @@ removeNulls :: ToJSON a => a -> Value
removeNulls = go . toJSON
where
go (Array x) = Array . Vector.map go $ x
go (Object x) = Object . HashMap.map go . HashMap.filter (not . isEmpty) $ x
go (Object x) = Object . KeyMap.map go . KeyMap.filter (not . isEmpty) $ x
go x = x

isEmpty Null = True
Expand Down
6 changes: 1 addition & 5 deletions stack.yaml
Original file line number Diff line number Diff line change
@@ -1,7 +1,3 @@
---
packages: [.]
resolver: lts-18.18
extra-deps:
- github-0.27@sha256:2288b807a4bd97fefeff75487ef5d2ed31f0faa18f306e01e5f5cb498e228208,7033
- suspend-0.2.0.0@sha256:0d98526558b773c3ff792664bc45d7a083a32eedb6206d4101a7570869c75a28,1115
- timers-0.2.0.4@sha256:081e81f1f7384795acc4f887cf3c07cc6e7a9c1bf6e65f0f94507f3d2e0585c2,1175
resolver: lts-21.9

0 comments on commit fa1769d

Please sign in to comment.