diff options
Diffstat (limited to 'src/BTLS/Cast.hs')
-rw-r--r-- | src/BTLS/Cast.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/BTLS/Cast.hs b/src/BTLS/Cast.hs index 6f29469..a467c90 100644 --- a/src/BTLS/Cast.hs +++ b/src/BTLS/Cast.hs @@ -15,7 +15,11 @@ module BTLS.Cast where import Foreign (Ptr) +import Foreign.C.Types import Unsafe.Coerce (unsafeCoerce) +asCUCharBuf :: Ptr CChar -> Ptr CUChar +asCUCharBuf = unsafeCoerce + asVoidPtr :: Ptr a -> Ptr () asVoidPtr = unsafeCoerce |