From abee913d29781051b9741af07d15de395643d150 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 16 May 2018 23:06:22 -0700
Subject: [PATCH] [taffybar] Remove mtl dependency

---
 dotfiles/config/taffybar/stack.yaml   | 2 +-
 dotfiles/config/taffybar/taffybar.css | 2 +-
 dotfiles/config/taffybar/taffybar.hs  | 9 +++++----
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/dotfiles/config/taffybar/stack.yaml b/dotfiles/config/taffybar/stack.yaml
index 1a932000..b183e6f1 100644
--- a/dotfiles/config/taffybar/stack.yaml
+++ b/dotfiles/config/taffybar/stack.yaml
@@ -30,7 +30,7 @@ extra-deps:
 - gi-pango-1.0.16
 - gi-xlib-2.0.2
 - gio-0.13.4.1
-- gtk-sni-tray-0.1.2.1
+- gtk-sni-tray-0.1.3.0
 - gtk-strut-0.1.2.0
 - gtk-traymanager-1.0.1
 - gtk3-0.14.9
diff --git a/dotfiles/config/taffybar/taffybar.css b/dotfiles/config/taffybar/taffybar.css
index 3fda2aa4..c25f7b71 100644
--- a/dotfiles/config/taffybar/taffybar.css
+++ b/dotfiles/config/taffybar/taffybar.css
@@ -9,7 +9,7 @@
 	padding-top: 2px;
 	padding-right: 2px;
 	padding-left: 2px;
-	transition: bordert-color .5s, background-color .5s;
+	transition: border-color .5s, background-color .5s;
 	border-radius: 5px;
 	border-style: solid;
 	border-width: 1px;
diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs
index b9852003..893dbbbf 100644
--- a/dotfiles/config/taffybar/taffybar.hs
+++ b/dotfiles/config/taffybar/taffybar.hs
@@ -4,8 +4,9 @@ module Main where
 import qualified        Control.Concurrent.MVar as MV
 import                  Control.Exception.Base
 import                  Control.Monad
-import                  Control.Monad.Reader
-import                  Control.Monad.Trans
+import                  Control.Monad.IO.Class
+import                  Control.Monad.Trans.Class
+import                  Control.Monad.Trans.Reader
 import qualified        Data.ByteString.Char8 as BS
 import                  Data.GI.Base
 import                  Data.GI.Base.ManagedPtr
@@ -148,7 +149,7 @@ main = do
         , minWSWidgetSize = Nothing
         , minIcons = 1
         , getIconInfo = myGetIconInfo
-        , windowIconSize = 33
+        , windowIconSize = 31
         , widgetGap = 0
         , showWorkspaceFn = hideEmpty
         , updateRateLimitMicroseconds = 100000
@@ -174,7 +175,7 @@ main = do
           ]
         , barPosition = Top
         , barPadding = 0
-        , barHeight = 100
+        , barHeight = 55
         , widgetSpacing = 0
         }
       simpleTaffyConfig =