implemented Types.newUrl

2021-09-22 09:55:29 -04:00
parent fd67089056
commit 4186eba7f1
1 changed files with 5 additions and 1 deletions
--- 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