diff --git a/Network/URI.hs b/Network/URI.hs
index e12f525..fa7ae9b 100644
--- a/Network/URI.hs
+++ b/Network/URI.hs
@@ -96,6 +96,7 @@ module Network.URI
     , isAbsoluteURI
     , isIPv6address
     , isIPv4address
+    , isHost
 
     -- * Predicates
     , uriIsAbsolute
@@ -367,6 +368,11 @@ isIPv6address = isValidParse ipv6address
 isIPv4address :: String -> Bool
 isIPv4address = isValidParse ipv4address
 
+-- |Test if string contains a valid URI host
+--
+isHost :: String -> Bool
+isHost = isValidParse host
+
 --  Helper function for turning a string into a URI
 --
 parseURIAny :: URIParser URI -> String -> Maybe URI