- → A.toAsciiBuilder "HTTP/" ⊕
- A.unsafeFromBuilder (BT.integral maj) ⊕
- A.toAsciiBuilder "." ⊕
- A.unsafeFromBuilder (BT.integral min)
+ → A.toAsciiBuilder "HTTP/" ⊕
+ A.toAsciiBuilder (A.unsafeFromString $ show maj) ⊕
+ A.toAsciiBuilder "." ⊕
+ A.toAsciiBuilder (A.unsafeFromString $ show min)
+
+-- |'Parser' for an 'HttpVersion'.
+httpVersion ∷ Parser HttpVersion
+httpVersion = string "HTTP/"
+ *>
+ (HttpVersion <$> decimal ⊛ (char '.' *> decimal))