From 50a75b51e7cfb98c697c7a7ce320ea6acb699c72 Mon Sep 17 00:00:00 2001
From: Brandon Kase <brandon.kase@gmail.com>
Date: Tue, 24 Dec 2019 17:35:26 -0500
Subject: [PATCH] Reflect changed isMuted encoding

---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index b8d8042..4bbda74 100644
--- 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