From c2926c7f7543f3e79d6ecd841c0c55ea2454606a Mon Sep 17 00:00:00 2001 From: Jan Vornberger Date: Sat, 24 Oct 2009 22:45:13 +0200 Subject: Added the alignment option 'AlignRightOffset' Ignore-this: 58cc00e1be669877e38a97e36b924969 darcs-hash:20091024204513-594c5-0156243473792c90824835f7fc0cbc8b5078336c.gz --- XMonad/Util/Loggers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Util/Loggers.hs') diff --git a/XMonad/Util/Loggers.hs b/XMonad/Util/Loggers.hs index f8aef65..3065d30 100644 --- a/XMonad/Util/Loggers.hs +++ b/XMonad/Util/Loggers.hs @@ -254,7 +254,7 @@ fixedWidthL a str n logger = do case a of AlignCenter -> toL (take n $ padhalf l ++ l ++ cs) AlignRight -> toL (reverse (take n $ reverse l ++ cs)) - AlignLeft -> toL (take n $ l ++ cs) + _ -> toL (take n $ l ++ cs) where toL = return . Just cs = cycle str -- cgit v1.2.3