From 262de92cb1c935caba3feb76aa540e41fea9dd37 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Wed, 22 Sep 2021 08:34:50 -0400 Subject: [PATCH] defined Types.Url --- src/Types.hs | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 src/Types.hs diff --git a/src/Types.hs b/src/Types.hs new file mode 100644 index 0000000..406fffd --- /dev/null +++ b/src/Types.hs @@ -0,0 +1,36 @@ +{-| + +Module : Types +Copyright : Jonathan Lamothe +License : GPL-3 +Maintainer : jonathan@jlamothe.net + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or (at +your option) any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + +-} + +module Types ( + Url (..) + ) where + +data Url = Url + { protocol :: String + , host :: String + , port :: Int + , path :: [String] + , params :: [(String, Maybe String)] + , anchor :: Maybe String + } deriving (Eq, Show) + +--jl