From f28825e471e206bcb7e6dc8e4874c2b771f7d24c Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 7 Feb 2023 02:30:41 +0100
Subject: move Graphics.* & co. to lib

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

(limited to 'lib/Foreign')

diff --git a/lib/Foreign/C/String/Extra.hs b/lib/Foreign/C/String/Extra.hs
new file mode 100644
index 0000000..a7b6dfe
--- /dev/null
+++ b/lib/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