diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-02-11 00:55:44 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-02-11 00:55:44 +0300 |
| commit | 4b87e6879228a3491609254949c41a2405c29ad5 (patch) | |
| tree | 81c13f2942bcfe2ef62aa3959f1d7fbf7ce626d1 /src/Suem.hs | |
| parent | dff4a3167f4b7cd13ee1d34b04a63f1f45a573ad (diff) | |
| download | suem-4b87e6879228a3491609254949c41a2405c29ad5.tar suem-4b87e6879228a3491609254949c41a2405c29ad5.tar.xz suem-4b87e6879228a3491609254949c41a2405c29ad5.zip | |
Library test.
Diffstat (limited to 'src/Suem.hs')
| -rw-r--r-- | src/Suem.hs | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/Suem.hs b/src/Suem.hs index f74976e..bbdfa78 100644 --- a/src/Suem.hs +++ b/src/Suem.hs @@ -1,4 +1,11 @@ -module Suem (printROM) where +module Suem (Config(..), suem) where -printROM :: IO () -printROM = putStrLn "ROM" +data Config = Config { + freq :: Int, + ram :: Int, + rom :: String +} + +suem :: Config -> IO () +suem (Config _ _ r) = putStrLn $ "Loaded " ++ r ++ " into ROM." +suem _ = return () |