Update modes in script
This commit is contained in:
parent
180a179faa
commit
8ce2700369
1 changed files with 1 additions and 1 deletions
|
@ -89,7 +89,7 @@ let
|
||||||
"System.Directory"
|
"System.Directory"
|
||||||
];
|
];
|
||||||
} ''
|
} ''
|
||||||
data Mode = Research | Orga | Leisure deriving (Eq, Ord, Show, Enum, Bounded)
|
data Mode = Klausur | Orga | Communication | Leisure | Unrestricted deriving (Eq, Ord, Show, Enum, Bounded)
|
||||||
modes = enumFrom Research
|
modes = enumFrom Research
|
||||||
getMode = do
|
getMode = do
|
||||||
name <- Text.strip <$> readFileText "/home/maralorn/.mode" `onException` say "File /home/maralorn/.mode not found."
|
name <- Text.strip <$> readFileText "/home/maralorn/.mode" `onException` say "File /home/maralorn/.mode not found."
|
||||||
|
|
Loading…
Reference in a new issue