From 1b6f0e17752445668237167e88229adbb14cb64d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 8 Jan 2017 19:13:43 +1100
Subject: New preference data array structure in Ada, currently won't link

---
 src/testmain.hs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 src/testmain.hs

(limited to 'src/testmain.hs')

diff --git a/src/testmain.hs b/src/testmain.hs
new file mode 100644
index 0000000..3f340c2
--- /dev/null
+++ b/src/testmain.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE ForeignFunctionInterface #-}
+
+
+
+import qualified Storage as Store
+
+
+
+foreign import ccall adainit :: IO Int
+foreign import ccall adafinal :: IO Int
+
+
+
+main = do
+    adainit
+    s <- Store.createStorage 10 5
+    Store.pokePref s 1 2 3
+    r <- Store.peekPref s 1 2 3
+    putStrLn (show r)
+    adafinal
+
-- 
cgit