From 30d226ba5eca8847775d03403367dee1f1e3dcfc Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 30 Mar 2024 18:26:01 +0000
Subject: fix for unmet pattern matches warnings (clean build)

---
 src/Xmobar/Run/Template.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Xmobar/Run')

diff --git a/src/Xmobar/Run/Template.hs b/src/Xmobar/Run/Template.hs
index 87c84d3..68feacb 100644
--- a/src/Xmobar/Run/Template.hs
+++ b/src/Xmobar/Run/Template.hs
@@ -77,5 +77,6 @@ splitTemplate alignSep template =
                    (ce,_:ri) -> [le, ce, ri]
                    _         -> def
     _         -> def
-  where [l, r] = if length alignSep == 2 then alignSep else defaultAlign
+  where sep = if length alignSep == 2 then alignSep else defaultAlign
+        (l, r) = (head sep, sep !! 1)
         def = [template, "", ""]
-- 
cgit v1.2.3