summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Run/Template.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Run/Template.hs')
-rw-r--r--src/Xmobar/Run/Template.hs3
1 files changed, 2 insertions, 1 deletions
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, "", ""]