diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-02-11 10:32:17 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-02-11 10:32:17 +0300 |
| commit | f88cbf20be4007ed7174c292dc1b57cc9495aaa2 (patch) | |
| tree | 03e40d11af1bef92f7b631564b607f62cfba4cff /src | |
| parent | 3c383868f185db0009924ef55f6e1897bfb2ed47 (diff) | |
| download | suem-f88cbf20be4007ed7174c292dc1b57cc9495aaa2.tar suem-f88cbf20be4007ed7174c292dc1b57cc9495aaa2.tar.xz suem-f88cbf20be4007ed7174c292dc1b57cc9495aaa2.zip | |
Config completed.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Suem.hs | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/src/Suem.hs b/src/Suem.hs index bbdfa78..a6df56f 100644 --- a/src/Suem.hs +++ b/src/Suem.hs @@ -1,11 +1,21 @@ -module Suem (Config(..), suem) where +module Suem (Config(..), ConfigSocket(..), suem) where + +data ConfigSocket = ConfigInet String | ConfigUnix String data Config = Config { freq :: Int, ram :: Int, - rom :: String + rom :: String, + s0 :: Maybe ConfigSocket, + s1 :: Maybe ConfigSocket, + s2 :: Maybe ConfigSocket, + s3 :: Maybe ConfigSocket, + s4 :: Maybe ConfigSocket, + s5 :: Maybe ConfigSocket, + s6 :: Maybe ConfigSocket, + s7 :: Maybe ConfigSocket } suem :: Config -> IO () -suem (Config _ _ r) = putStrLn $ "Loaded " ++ r ++ " into ROM." -suem _ = return () +suem (Config _ _ r _ _ _ _ _ _ _ _) = putStrLn $ "Loaded " ++ r ++ " into ROM." +suem _ = return () |