From a9286e8c39cc8de56de7a723c9ddabd78ac64198 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Tue, 29 Mar 2022 12:32:25 -0600
Subject: Remove trailing whitespace

---
 src/Internal/LayoutDraw.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Internal/LayoutDraw.hs')

diff --git a/src/Internal/LayoutDraw.hs b/src/Internal/LayoutDraw.hs
index 131b32b..a105c98 100644
--- a/src/Internal/LayoutDraw.hs
+++ b/src/Internal/LayoutDraw.hs
@@ -114,7 +114,7 @@ drawXpmIO l = do
 --
 -- Create's an XPM, purely. Returns a string with the XPM contents.
 -- Takes as arguments
--- 
+--
 --   - dimensions of the icon.
 --   - list of (color, rectangle) pairs.
 --   - The amount to shrink the windows by for those pretty gaps.
@@ -134,7 +134,7 @@ drawXpm (w, h) rects' shrinkAmt = execWriter $ do
 
     forM_ [0 .. h - 1] $ \y -> do
       tell "\""
-      forM_ [0 .. w - 1] $ \x -> 
+      forM_ [0 .. w - 1] $ \x ->
         (case find (matches x y) zipRects of
           Nothing -> tell "%"
           Just (chr, _) -> tell [chr])
-- 
cgit