fix build w/o libmagic

This commit is contained in:
Joey Hess 2019-02-09 13:49:46 -04:00
parent 37d698cdad
commit ed2a8498a4
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -41,5 +41,5 @@ getMagicMimeType :: Magic -> FilePath -> IO (Maybe MimeType)
#ifdef WITH_MAGICMIME
getMagicMimeType m f = Just <$> magicFile m f
#else
getMagicMimeType = return Nothing
getMagicMimeType _ _ = return Nothing
#endif