@@ -2,7 +2,7 @@
22{-# LANGUAGE OverloadedStrings #-}
33module Elm.Package
44 ( Name(..)
5− , Package
5+ , Package(..)
66 , dummyName, core, virtualDom, html
77 , toString, toText, toUrl, toFilePath
88 , fromText
@@ -35,13 +35,17 @@ import System.FilePath ((</>))
3535
3636data Name =
3737 Name
38− { _user :: Text
39− , _project :: Text
38+ { _user :: !Text
39+ , _project :: !Text
4040 }
4141 deriving (Eq, Ord, Show)
4242
4343
44−type Package = (Name, Version)
44+data Package =
45+ Package
46+ { _name :: !Name
47+ , _version :: !Version
48+ }
4549
4650
4751dummyName :: Name