module Foreign.C.String.Extra where

import Data.Word (Word8)
import Foreign.C.String (castCCharToChar)
import Foreign.C.Types (CChar)
import qualified Data.Char as Char


castCCharToWord8 :: CChar -> Word8
castCCharToWord8 = fromIntegral . Char.ord . castCCharToChar