{-# language MagicHash #-} {-# language TypeFamilies #-} {-# language UnliftedFFITypes #-} module Cstrlen ( cstringLength# ) where import GHC.Exts (Addr#,Int#) foreign import ccall unsafe "strlen" c_strlen :: Addr# -> Int# cstringLength# :: Addr# -> Int# cstringLength# :: Addr# -> Int# cstringLength# = Addr# -> Int# c_strlen