diff options
Diffstat (limited to 'src/testmain.hs.old')
-rw-r--r-- | src/testmain.hs.old | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/src/testmain.hs.old b/src/testmain.hs.old deleted file mode 100644 index 3f340c2..0000000 --- a/src/testmain.hs.old +++ /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 - |