From 256aa3de2212dd77d80f4cf86c64f988b448bbc7 Mon Sep 17 00:00:00 2001
From: bloodstalker <thabogre@gmail.com>
Date: Mon, 19 Mar 2018 17:38:48 +0330
Subject: some fixes

---
 bruiser/hs/Safe.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 bruiser/hs/Safe.hs

(limited to 'bruiser/hs/Safe.hs')

diff --git a/bruiser/hs/Safe.hs b/bruiser/hs/Safe.hs
new file mode 100644
index 0000000..8994e9e
--- /dev/null
+++ b/bruiser/hs/Safe.hs
@@ -0,0 +1,9 @@
+{-#Language ForeignFunctionInterface#-}
+module Safe where
+import Foreign.C.Types
+fibonacci :: Int -> Int
+fibonacci n = fibs !! n
+  where fibs = 0 : 1: zipWith (+) fibs (tail fibs)
+fibonacci_hs ::CInt -> CInt
+fibonacci_hs = fromIntegral.fibonacci.fromIntegral
+foreign export ccall fibonacci_hs::CInt->CInt
-- 
cgit v1.2.3