Update modes in script
This commit is contained in:
parent
180a179faa
commit
8ce2700369
|
@ -89,7 +89,7 @@ let
|
|||
"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
|
||||
getMode = do
|
||||
name <- Text.strip <$> readFileText "/home/maralorn/.mode" `onException` say "File /home/maralorn/.mode not found."
|
||||
|
|
Loading…
Reference in a new issue