git.iko.soy/elk
on master help sign in
Expose a type for names and versions together
3b08065Evan Czaplicki
src/Elm/Package.hs+8−4
compare with master
unifiedsplit
@@ -2,7 +2,7 @@
2{-# LANGUAGE OverloadedStrings #-}
2{-# LANGUAGE OverloadedStrings #-}
3module Elm.Package
3module Elm.Package
4 ( Name(..)
4 ( Name(..)
5− , Package
5+ , Package(..)
6 , dummyName, core, virtualDom, html
6 , dummyName, core, virtualDom, html
7 , toString, toText, toUrl, toFilePath
7 , toString, toText, toUrl, toFilePath
8 , fromText
8 , fromText
@@ -35,13 +35,17 @@ import System.FilePath ((</>))
35
35
36data Name =
36data Name =
37 Name
37 Name
38− { _user :: Text
38+ { _user :: !Text
39− , _project :: Text
39+ , _project :: !Text
40 }
40 }
41 deriving (Eq, Ord, Show)
41 deriving (Eq, Ord, Show)
42
42
43
43
44−type Package = (Name, Version)
44+data Package =
45+ Package
46+ { _name :: !Name
47+ , _version :: !Version
48+ }
45
49
46
50
47dummyName :: Name
51dummyName :: Name