diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-01-08 22:46:29 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-08 22:46:29 +1100 |
| commit | 1652e49e17e4f4dead4bd23694a2b99a06048023 (patch) | |
| tree | 1fed8349ae18b5b61946195ae9cf48fbda0f9a05 /src/testmain.hs | |
| parent | 6824f93b9b575622cd13aefa81b800eb56ce0e2f (diff) | |
Moved nonworking code to the side
Diffstat (limited to 'src/testmain.hs')
| -rw-r--r-- | src/testmain.hs | 21 |
1 files changed, 0 insertions, 21 deletions
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 - |