blob: bbdfa78b9711e544fc747d95a32348c81bdc39e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
module Suem (Config(..), suem) where
data Config = Config {
freq :: Int,
ram :: Int,
rom :: String
}
suem :: Config -> IO ()
suem (Config _ _ r) = putStrLn $ "Loaded " ++ r ++ " into ROM."
suem _ = return ()
|