module Network.HTTP.Server.Mini.Util where

import Data.Char
import Data.Word


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