diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-01-09 19:55:12 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-01-09 19:55:12 +1100 |
| commit | 50adbf5cdf9ef6924c47b6738dfd6139d19a0438 (patch) | |
| tree | 31331251c0b40203ef4cda0b63b1c9d6ffa3b671 /src/testmain.hs.old | |
| parent | bc0a9edd47dad7a0bf7df26941a0d870c0c3d0ad (diff) | |
Moved old code to separate directory
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 - |