From 1652e49e17e4f4dead4bd23694a2b99a06048023 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 8 Jan 2017 22:46:29 +1100 Subject: Moved nonworking code to the side --- src/testmain.hs.old | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/testmain.hs.old (limited to 'src/testmain.hs.old') diff --git a/src/testmain.hs.old b/src/testmain.hs.old new file mode 100644 index 0000000..3f340c2 --- /dev/null +++ b/src/testmain.hs.old @@ -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