implemented Types.newUrl

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