From 4b87e6879228a3491609254949c41a2405c29ad5 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Thu, 11 Feb 2021 00:55:44 +0300 Subject: Library test. --- src/Suem.hs | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'src/Suem.hs') 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 () -- cgit v1.2.3