Support GHC 9.2

aesiniath · Nov 15, 2021 · 86cd7f9 · 86cd7f9
1 parent b355f94
commit 86cd7f9
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/lib/Network/Http/Inconvenience.hs b/lib/Network/Http/Inconvenience.hs
@@ -140,7 +140,12 @@ hexd c0 =
     !low = toDigit $ fromEnum $ c .&. 0xf
     !hi = toDigit $ (c .&. 0xf0) `shiftr` 4
 
-    shiftr (W8# a#) (I# b#) = I# (word2Int# (uncheckedShiftRL# a# b#))
+    shiftr (W8# a#) (I# b#) = I# (word2Int# (uncheckedShiftRL'# a# b#))
+#if MIN_VERSION_base(4,16,0)
+    uncheckedShiftRL'# a# b# = word8ToWord# (uncheckedShiftRLWord8# a# b#)
+#else
+    uncheckedShiftRL'# = uncheckedShiftRL#
+#endif
 
 urlEncodeTable :: HashSet Char
 urlEncodeTable = HashSet.fromList $! filter f $! map w2c [0 .. 255]

diff --git a/stack.yaml b/stack.yaml
@@ -1,13 +1,19 @@
 resolver: nightly-2021-11-14
+compiler: ghc-9.2.1
 
 packages:
 - .
 
 extra-deps:
 - aeson-2.0.2.0
+- attoparsec-0.14.2
+- base-compat-0.12.1
+- base-compat-batteries-0.12.1
 - io-streams-haproxy-1.0.1.0
-- snap-core-1.0.4.2
 - snap-server-1.1.2.0
+# https://github.com/snapframework/snap-core/pull/312
+- github: snapframework/snap-core
+  commit: b87aed3ca64b88c7ab71b5bf460a3c4e8cb70a9b
 
 flags:
   http-streams: