extMimeMaybe :: String -> Maybe String
extMimeMaybe ext =
    if ext == ".txt" then Just "text/plain"
    else if ext == ".svg" then Just "image/svg+xml"
    else if ext == ".mp3" then Just "audio/mpeg"
    else if ext == ".webm" then Just "video/webm"
    else if ext == ".mp4" then Just "video/mp4"
    else if ext == ".obv" then Just "video/ogg"
    else Nothing
extMimeMaybe :: String -> Maybe String
extMimeMaybe ext =
    if ext == ".txt" then Just "text/plain"
    else if ext == ".svg" then Just "image/svg+xml"
    else if ext == ".mp3" then Just "audio/mpeg"
    else if ext == ".webm" then Just "video/webm"
    else if ext == ".mp4" then Just "video/mp4"
    else if ext == ".obv" then Just "video/ogg"
    else Nothing
extMimeMaybe ext =
    if ext == ".txt" then Just "text/plain"
    else if ext == ".svg" then Just "image/svg+xml"
    else if ext == ".mp3" then Just "audio/mpeg"
    else if ext == ".webm" then Just "video/webm"
    else if ext == ".mp4" then Just "video/mp4"
    else if ext == ".obv" then Just "video/ogg"
    else Nothing