This commit is contained in:
Joey Hess 2019-04-30 12:22:13 -04:00
parent 3a6b9ccada
commit 28b4310abe
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -56,4 +56,4 @@ getMagicMimeType :: Magic -> FilePath -> IO (Maybe MimeType)
getMagicMimeType m f = fmap fst <$> getMagicMime m f
getMagicMimeEncoding :: Magic -> FilePath -> IO (Maybe MimeEncoding)
getMagicMimeEncoding m f = fmap fst <$> getMagicMime m f
getMagicMimeEncoding m f = fmap snd <$> getMagicMime m f