From 224998e9185ebb8fd6d1741c6536e22666a7680d Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Mon, 21 Nov 2022 13:06:20 -0700
Subject: Enable LambdaCase

---
 package.yaml                  | 1 +
 src/Rahm/Desktop/XMobarLog.hs | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/package.yaml b/package.yaml
index cd62c0e..11eabfa 100644
--- a/package.yaml
+++ b/package.yaml
@@ -21,6 +21,7 @@ ghc-options:
   - -XTupleSections
   - -XTypeFamilies
   - -XViewPatterns
+  - -XLambdaCase
 
 dependencies:
   - base >= 4.0.0
diff --git a/src/Rahm/Desktop/XMobarLog.hs b/src/Rahm/Desktop/XMobarLog.hs
index 5969044..d1d131c 100644
--- a/src/Rahm/Desktop/XMobarLog.hs
+++ b/src/Rahm/Desktop/XMobarLog.hs
@@ -53,7 +53,7 @@ xMobarLogHook (XMobarLog xmproc) = do
           tell " "
           tell $ logLevelToXMobar loglevel
 
-          forM_ theaters $ \theater -> case theater of
+          forM_ theaters $ \case
             (Just n, _, True) -> do
               tell "<fn=1><fc=#ffffff>"
               tell n
-- 
cgit