1
0
Fork 0

Fix gnome script

This commit is contained in:
Malte Brandy 2021-10-16 23:29:38 +02:00
parent 8ce2700369
commit 5ae6560419
No known key found for this signature in database
GPG key ID: 226A2D41EF5378C9

View file

@ -90,7 +90,7 @@ let
];
} ''
data Mode = Klausur | Orga | Communication | Leisure | Unrestricted deriving (Eq, Ord, Show, Enum, Bounded)
modes = enumFrom Research
modes = enumFrom Klausur
getMode = do
name <- Text.strip <$> readFileText "/home/maralorn/.mode" `onException` say "File /home/maralorn/.mode not found."
maybe (say [i|Unknown mode #{name}|] >> error [i|Unknown mode #{name}|]) pure $ find (\mode -> name == (Text.toLower $ show mode)) $ modes