> module DHSURI () where

> import Network.URI
> import Char

> parseDHSURI :: String -> IO (Maybe URI)
> parseDHSURI str = do
>   let uri = parseURI str
>   return (case uri of
>     Nothing -> Nothing
>     Just x  -> if ((map toUpper (scheme x)) == "DHS")
>		  then (Just x) else Nothing)