implemented Types.newUrl
This commit is contained in:
parent
fd67089056
commit
4186eba7f1
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user