Reflect changed isMuted encoding

bkase · Dec 24, 2019 · 50a75b5 · 50a75b5
1 parent 88a305f
commit 50a75b5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Main.hs b/Main.hs
@@ -170,9 +170,9 @@ volumeTask =
           isMuted <- true <|> false
           return $ Volume volume isMuted
         true :: Parser Bool
-        true = chunk "true" $> True
+        true = chunk "1" $> True
         false :: Parser Bool
-        false = chunk "false" $> False
+        false = chunk "0" $> False
 
 -- TODO: Make the int more composable or something
 runTask :: (MonadIO m, MonadShell m) => Task o -> m o