diff options
| -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 |