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 | 21 --------------------- 1 file changed, 21 deletions(-) delete mode 100644 src/testmain.hs (limited to 'src/testmain.hs') diff --git a/src/testmain.hs b/src/testmain.hs deleted file mode 100644 index 3f340c2..0000000 --- a/src/testmain.hs +++ /dev/null @@ -1,21 +0,0 @@ -{-# 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