diff options
Diffstat (limited to 'Annex/FileMatcher.hs')
| -rw-r--r-- | Annex/FileMatcher.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/Annex/FileMatcher.hs b/Annex/FileMatcher.hs index 1e07a9da2..722f2b33a 100644 --- a/Annex/FileMatcher.hs +++ b/Annex/FileMatcher.hs @@ -133,12 +133,10 @@ mkLargeFilesParser = do #ifdef WITH_MAGICMIME magicmime <- liftIO $ catchMaybeIO $ do m <- magicOpen [MagicMimeType] - liftIO $ do - md <- getEnv "GIT_ANNEX_DIR" - case md of - Nothing -> magicLoadDefault m - Just d -> magicLoad m - (d </> "magic" </> "magic.mgc") + liftIO $ getEnv "GIT_ANNEX_DIR" >>= \case + Nothing -> magicLoadDefault m + Just d -> magicLoad m + (d </> "magic" </> "magic.mgc") return m #endif let parse = parseToken $ commonTokens |