From 4186eba7f11adff0cc2fc4b88575d97a2506d084 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Wed, 22 Sep 2021 09:55:29 -0400
Subject: [PATCH] implemented Types.newUrl

---
 src/Types.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/Types.hs b/src/Types.hs
index 0818c60..3d197d8 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -21,7 +21,8 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 -}
 
 module Types (
-  Url (..)
+  Url (..),
+  newUrl
   ) where
 
 data Url = Url
@@ -32,4 +33,7 @@ data Url = Url
   , anchor   :: Maybe String
   } deriving (Eq, Show)
 
+newUrl :: Url
+newUrl = Url "" "" [] [] Nothing
+
 --jl