aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2021-02-11 00:55:44 +0300
committerAleksey Veresov <aleksey@veresov.pro>2021-02-11 00:55:44 +0300
commit4b87e6879228a3491609254949c41a2405c29ad5 (patch)
tree81c13f2942bcfe2ef62aa3959f1d7fbf7ce626d1 /src
parentdff4a3167f4b7cd13ee1d34b04a63f1f45a573ad (diff)
downloadsuem-4b87e6879228a3491609254949c41a2405c29ad5.tar
suem-4b87e6879228a3491609254949c41a2405c29ad5.tar.xz
suem-4b87e6879228a3491609254949c41a2405c29ad5.zip
Library test.
Diffstat (limited to 'src')
-rw-r--r--src/Suem.hs13
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 ()