From 7beb7a77e8550290e1a1a7cdaeacfe67fbf64ec0 Mon Sep 17 00:00:00 2001
From: Unoqwy <julien.qwy@gmail.com>
Date: Fri, 7 Aug 2020 20:19:36 +0200
Subject: fix non-exhaustive pattern warning

---
 src/Xmobar/X11/Draw.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Xmobar/X11/Draw.hs b/src/Xmobar/X11/Draw.hs
index 22b88ae..168c551 100644
--- a/src/Xmobar/X11/Draw.hs
+++ b/src/Xmobar/X11/Draw.hs
@@ -206,3 +206,4 @@ drawBoxBorder d dr gc pos (BoxOffset alg offset) ht (x1,x2) lw (BoxMargins mt mr
       drawLine d dr gc (x1 + p1) (ht - lc') (x2 + p2) (ht - lc')
     BBLeft   -> drawLine d dr gc (x1 - 1 + ml) p1 (x1 - 1 + ml) (ht + p2)
     BBRight  -> drawLine d dr gc (x2 + lc - 1 - mr) p1 (x2 + lc - 1 - mr) (ht + p2)
+    _ -> error "unreachable code"
\ No newline at end of file
-- 
cgit v1.2.3