From f4cdf79bd4a75e9eafe68b9a908f4cc68682b7ef Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 5 Apr 2022 21:39:55 +0200
Subject: boom

---
 src/Foreign/C/String/Extra.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 src/Foreign/C/String/Extra.hs

(limited to 'src/Foreign/C')

diff --git a/src/Foreign/C/String/Extra.hs b/src/Foreign/C/String/Extra.hs
new file mode 100644
index 0000000..a7b6dfe
--- /dev/null
+++ b/src/Foreign/C/String/Extra.hs
@@ -0,0 +1,10 @@
+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
-- 
cgit v1.2.3