diff options
| author | jao <jao@gnu.org> | 2017-04-29 02:26:58 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2017-04-29 02:26:58 +0200 |
| commit | 54c2d5bc5958331a4658a3ea22708e78758f7e11 (patch) | |
| tree | bf31ebb569f2ee7c1e5ef1d001b6659f872f05d8 | |
| parent | e41fd61bdeac8779fa24050cc0d44714f7c90f1d (diff) | |
| download | xmobar-54c2d5bc5958331a4658a3ea22708e78758f7e11.tar.gz xmobar-54c2d5bc5958331a4658a3ea22708e78758f7e11.tar.bz2 | |
hlint warning fixed
| -rw-r--r-- | src/Bitmap.hs | 5 |
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 |