implemented Types.newUrl

This commit is contained in:
Jonathan Lamothe 2021-09-22 09:55:29 -04:00
parent fd67089056
commit 4186eba7f1

View File

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