1
0
Fork 0

Update modes in script

This commit is contained in:
Malte Brandy 2021-10-16 23:17:05 +02:00
parent 180a179faa
commit 8ce2700369
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -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."