showFileMime :: FilePath -> String
showFileMime path =
    let ext = takeExtension path in
        case extMimeMaybe ext of
            Nothing -> ext
            Just m -> m
showFileMime :: FilePath -> String
showFileMime path =
    let ext = takeExtension path in
        case extMimeMaybe ext of
            Nothing -> ext
            Just m -> m
showFileMime path =
    let ext = takeExtension path in
        case extMimeMaybe ext of
            Nothing -> ext
            Just m -> m