mini-http-server/Network/HTTP/Server/Mini/Util.hs


1
2
3
4
5
6
7
8
9

module Network.HTTP.Server.Mini.Util where

import Data.Char
import Data.Word


{-# INLINE ord8 #-}
ord8 :: Char -> Word8
ord8 = fromIntegral . ord