portNum.hs

{-|
>>> uriToFTPPort <$> parseURI "ftp://foo:[email protected]:50021/hello"
Just 50021
>>> uriToFTPPort <$> parseURI "ftp://foo:[email protected]/hello"
Just 21
>>> uriToFTPPort <$> parseURI "ftp://192.168.1.11/hello"
Just 21
-}
uriToFTPPort :: Num a => URI -> a
uriToFTPPort uri = port maybePort
    where
        port (Just (':' : portStr)) = read portStr
        port _ = 21
        maybePort = uriPort <$> uriAuthority uri