CI

.github/workflows/tests.yml

@@ -1,10 +1,10 @@
 name: Tests
 
 on:
-    pull_request:
-    push:
-        branches:
-        - master
+  push:
+    branches: [ 'master', 'ci' ]
+  pull_request:
+    branches: [ 'master' ]
 
 jobs:
   stack:

stack-lts-18.yaml

@@ -26,7 +26,7 @@ extra-deps:
   - crypton-x509-1.7.6
   - crypton-x509-store-1.6.9
   - crypton-x509-validation-1.6.12
-  - http2-5.0.0
+  - http2-5.1.0
   - network-byte-order-0.1.7
   - network-control-0.0.2
   - tls-1.7.0

stack-lts-19.yaml

@@ -30,8 +30,8 @@ extra-deps:
   - crypton-x509-system-1.6.7
   - crypton-x509-validation-1.6.12
   - fast-logger-3.2.2
-  - http2-5.0.0
-  - http3-0.0.7
+  - http2-5.1.0
+  - http3-0.0.8
   - memory-0.18.0
   - network-3.1.4.0
   - network-byte-order-0.1.7

stack-lts-20.yaml

@@ -31,8 +31,8 @@ extra-deps:
   - crypton-x509-system-1.6.7
   - crypton-x509-validation-1.6.12
   - fast-logger-3.2.2
-  - http2-5.0.0
-  - http3-0.0.7
+  - http2-5.1.0
+  - http3-0.0.8
   - memory-0.18.0
   - multipart-0.2.1
   - network-byte-order-0.1.7

stack-lts-21.yaml

@@ -29,8 +29,8 @@ extra-deps:
   - crypton-x509-store-1.6.9
   - crypton-x509-system-1.6.7
   - crypton-x509-validation-1.6.12
-  - http2-5.0.0
-  - http3-0.0.7
+  - http2-5.1.0
+  - http3-0.0.8
   - network-control-0.0.2
   - network-udp-0.0.0
   - quic-0.1.12

stack-nightly.yaml

@@ -25,7 +25,8 @@ nix:
     - zlib
 extra-deps:
   - crypto-token-0.1.0
-  - http3-0.0.7
+  - http2-5.1.0
+  - http3-0.0.8
   - network-udp-0.0.0
   - quic-0.1.15
   - sockaddr-0.0.1

stack.yaml

@@ -24,7 +24,8 @@ nix:
   - zlib
 extra-deps:
   - crypto-token-0.1.0
-  - http3-0.0.7
+  - http2-5.1.0
+  - http3-0.0.8
   - network-udp-0.0.0
   - quic-0.1.14
   - sockaddr-0.0.1

warp/test/PackIntSpec.hs

@@ -0,0 +1,14 @@
+module PackIntSpec (spec) where
+
+import qualified Data.ByteString.Char8 as C8
+import Network.Wai.Handler.Warp.PackInt
+import Test.Hspec
+import Test.Hspec.QuickCheck
+import qualified Test.QuickCheck as QC
+
+spec :: Spec
+spec = describe "readInt64" $ do
+    prop "" $ \n -> packIntegral (abs n :: Int) == C8.pack (show (abs n))
+    prop "" $ \(QC.Large n) ->
+        let n' = fromIntegral (abs n :: Int)
+         in packIntegral (n' :: Int) == C8.pack (show n')