Fix status script start state
This commit is contained in:
parent
e45fe313ab
commit
7994d26291
|
@ -93,7 +93,7 @@ simpleModule delay action var = repeatM do
|
|||
|
||||
main :: IO ()
|
||||
main = do
|
||||
mode_var <- newVar Orga
|
||||
mode_var <- newVar Unrestricted
|
||||
let read_mode = readTVarIO (value mode_var)
|
||||
modules =
|
||||
[ simpleModule (5 * oneSecond) $ do
|
||||
|
|
Loading…
Reference in a new issue