summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2017-04-29 02:26:58 +0200
committerjao <jao@gnu.org>2017-04-29 02:26:58 +0200
commit54c2d5bc5958331a4658a3ea22708e78758f7e11 (patch)
treebf31ebb569f2ee7c1e5ef1d001b6659f872f05d8 /src
parente41fd61bdeac8779fa24050cc0d44714f7c90f1d (diff)
downloadxmobar-54c2d5bc5958331a4658a3ea22708e78758f7e11.tar.gz
xmobar-54c2d5bc5958331a4658a3ea22708e78758f7e11.tar.bz2
hlint warning fixed
Diffstat (limited to 'src')
-rw-r--r--src/Bitmap.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Bitmap.hs b/src/Bitmap.hs
index 1acc0b7..11728d4 100644
--- a/src/Bitmap.hs
+++ b/src/Bitmap.hs
@@ -86,9 +86,10 @@ loadBitmap d w p = do
exist <- doesFileExist p
if exist
then do
- res <- runExceptT $ tryXBM
#ifdef XPM
- <|> tryXPM
+ res <- runExceptT (tryXBM <|> tryXPM)
+#else
+ res <- runExceptT tryXBM
#endif
case res of
Right b -> return $ Just b