From 4c5a489f3e53d362b3b33a93691503c6b9d2c0c1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 22 Jul 2019 11:03:26 -0400 Subject: [PATCH] avoid build warning when built w/o magic-mime --- Annex/FileMatcher.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/FileMatcher.hs b/Annex/FileMatcher.hs index d5e4016858..5476d7bcda 100644 --- a/Annex/FileMatcher.hs +++ b/Annex/FileMatcher.hs @@ -173,8 +173,8 @@ preferredContentParser tokens = map (parseToken tokens) . tokenizeMatcher mkLargeFilesParser :: Annex (String -> [ParseResult (MatchFiles Annex)]) mkLargeFilesParser = do - magicmime <- liftIO initMagicMime #ifdef WITH_MAGICMIME + magicmime <- liftIO initMagicMime let mimer n f = ValueToken n (usev $ f magicmime) #else let mimer n = ValueToken n $