From d1b6db8bb1c97b0764b777b21c197ab9b68e4573 Mon Sep 17 00:00:00 2001
From: Alex Biehl <alex@scarf.sh>
Date: Fri, 16 Feb 2024 11:52:39 +0100
Subject: [PATCH] Add isHost predicate

---
 Network/URI.hs | 6 ++++++
 1 file changed, 6 insertions(+)

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