avoid build warning when built w/o magic-mime

This commit is contained in:
Joey Hess 2019-07-22 11:03:26 -04:00
parent 875c7b5cc9
commit 4c5a489f3e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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 $