Merge PR #31

kazu-yamamoto · Nov 29, 2021 · 2658f4d · 2658f4d
2 parents d6ab3a8 + afd30c1
commit 2658f4d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Network/HTTP2/Arch/Status.hs b/Network/HTTP2/Arch/Status.hs
@@ -41,4 +41,4 @@ fromStatus status = unsafeCreate 3 $ \p -> do
 toStatus :: ByteString -> Maybe H.Status
 toStatus bs = case C8.readInt bs of
   Nothing       -> Nothing
-  Just (code,_) -> Just $ H.mkStatus code "fixme"
+  Just (code,_) -> Just $ toEnum code
diff --git a/test/HTTP2/ServerSpec.hs b/test/HTTP2/ServerSpec.hs
@@ -116,6 +116,7 @@ client0 sendRequest = do
     let req = C.requestNoBody methodGet "/" []
     sendRequest req $ \rsp -> do
         C.responseStatus rsp `shouldBe` Just ok200
+        fmap statusMessage (C.responseStatus rsp) `shouldBe` Just "OK"
 
 client1 :: C.Client ()
 client1 sendRequest = do