From 54c2d5bc5958331a4658a3ea22708e78758f7e11 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 29 Apr 2017 02:26:58 +0200
Subject: hlint warning fixed

---
 src/Bitmap.hs | 5 +++--
 1 file 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
-- 
cgit v1.2.3