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 (
|
||||
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
|
||||
|
|
Loading…
Reference in New Issue
Block a user