mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid build warning when built w/o magic-mime

Browse source
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
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Annex/FileMatcher.hs
View file

@ -173,8 +173,8 @@ preferredContentParser tokens = map (parseToken tokens) . tokenizeMatcher
mkLargeFilesParser :: Annex (String -> [ParseResult (MatchFiles Annex)]) mkLargeFilesParser :: Annex (String -> [ParseResult (MatchFiles Annex)])
mkLargeFilesParser = do mkLargeFilesParser = do
magicmime <- liftIO initMagicMime
#ifdef WITH_MAGICMIME #ifdef WITH_MAGICMIME
magicmime <- liftIO initMagicMime
let mimer n f = ValueToken n (usev $ f magicmime) let mimer n f = ValueToken n (usev $ f magicmime)
#else #else
let mimer n = ValueToken n $ let mimer n = ValueToken n $