diff options
| author |  Benjamin Barenblat <bbaren@google.com> | 2018-08-02 17:19:33 -0400 |
|---|---|---|
| committer | Benjamin Barenblat <bbaren@google.com> | 2018-08-02 17:19:33 -0400 |
| commit | 44a6b5738f73b5281c3630c507aeece75e6ee952 (patch) | |
| tree | c55ae9fe7260b7f16244b5dd220bc7f806a9fc79 /src/BTLS/Cast.hs | |
| parent | 2152e7728db7e0cf86ea23d29a05294af24b6898 (diff) | |
Factor out common char* ↔ unsigned char* cast
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 |