Browse Source

added delay option

master
Thorn Avery 2 years ago
parent
commit
16925c182e
2 changed files with 6 additions and 1 deletions
  1. +1
    -1
      src/Main.hs
  2. +5
    -0
      src/Options.hs

+ 1
- 1
src/Main.hs View File

@@ -26,7 +26,7 @@ main = do
chan <- newBChan 1
forkIO $ forever $ do
writeBChan chan Tick
threadDelay 70000
threadDelay $ (optTime options) * 10000
g <- initGame
let buildVty = V.mkVty V.defaultConfig
initialVty <- buildVty


+ 5
- 0
src/Options.hs View File

@@ -13,6 +13,7 @@ data Options = Options
{ optWidth :: Int
, optGenerations :: Int
, optHeight :: Int
, optTime :: Int
} deriving Show

-- the default options for the program
@@ -24,6 +25,7 @@ defaultOptions w h = Options
{ optWidth = w
, optGenerations = 40
, optHeight = h
, optTime = 7
}

-- the avaliable options
@@ -38,6 +40,9 @@ options =
, Option ['h'] ["height"]
(ReqArg (\t opts -> opts { optHeight = (read t) }) "HEIGHT")
"term height"
, Option ['t'] ["time"]
(ReqArg (\t opts -> opts { optTime = (read t) }) "TIME")
"delay time"
]

-- parse the options into the structure


Loading…
Cancel
Save