diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-05-08 19:26:10 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-05-08 19:26:10 +0200 |
| commit | 30d4ca02ea147089af994ea7d5f7941a4bbe94a7 (patch) | |
| tree | 9fd9086c74976f7851a7622756a20dcb6af91e18 /mini-http-server/Network/HTTP/Server/Mini/Util.hs | |
| parent | ba9d7504080fb4e9adfb2d33290190e06d2f8773 (diff) | |
Rename mini-http to mini-http-server
And move Parser to Internal.Parser for test suite
Diffstat (limited to 'mini-http-server/Network/HTTP/Server/Mini/Util.hs')
| -rw-r--r-- | mini-http-server/Network/HTTP/Server/Mini/Util.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/mini-http-server/Network/HTTP/Server/Mini/Util.hs b/mini-http-server/Network/HTTP/Server/Mini/Util.hs new file mode 100644 index 0000000..c29a8e6 --- /dev/null +++ b/mini-http-server/Network/HTTP/Server/Mini/Util.hs @@ -0,0 +1,9 @@ +module Network.HTTP.Server.Mini.Util where + +import Data.Char +import Data.Word + + +{-# INLINE ord8 #-} +ord8 :: Char -> Word8 +ord8 = fromIntegral . ord |