git.iko.soy/elk
on master help sign in
Add Elm.Package.isKernel / shuffle definitions around
63e885cEvan Czaplicki
src/Elm/Package.hs+59−45
compare with master
unifiedsplit
@@ -3,11 +3,12 @@
3module Elm.Package
3module Elm.Package
4 ( Name(..)
4 ( Name(..)
5 , Package(..)
5 , Package(..)
6+ , isKernel
7+ , toString, toUrl, toFilePath
8+ , fromText
6 , dummyName, kernel, core
9 , dummyName, kernel, core
7 , browser, virtualDom, html
10 , browser, virtualDom, html
8 , webgl, linearAlgebra
11 , webgl, linearAlgebra
9− , toString, toUrl, toFilePath
10− , fromText
11 , Version(..)
12 , Version(..)
12 , initialVersion, dummyVersion
13 , initialVersion, dummyVersion
13 , bumpPatch, bumpMinor, bumpMajor
14 , bumpPatch, bumpMinor, bumpMajor
@@ -59,52 +60,13 @@ data Package =
59 deriving (Eq, Ord)
60 deriving (Eq, Ord)
60
61
61
62
62−{-# NOINLINE dummyName #-}
63−dummyName :: Name
64−dummyName =
65− Name "user" "project"
66
63
64+-- HELPERS
67
65
68−{-# NOINLINE kernel #-}
69−kernel :: Name
70−kernel =
71− Name "elm-lang" "kernel"
72
66
73−
67+isKernel :: Name -> Bool
74−{-# NOINLINE core #-}
68+isKernel (Name user _) =
75−core :: Name
69+ user == "elm-lang" || user == "elm-explorations"
76−core =
77− Name "elm-lang" "core"
78−
79−
80−{-# NOINLINE browser #-}
81−browser :: Name
82−browser =
83− Name "elm-lang" "browser"
84−
85−
86−{-# NOINLINE virtualDom #-}
87−virtualDom :: Name
88−virtualDom =
89− Name "elm-lang" "virtual-dom"
90−
91−
92−{-# NOINLINE html #-}
93−html :: Name
94−html =
95− Name "elm-lang" "html"
96−
97−
98−{-# NOINLINE webgl #-}
99−webgl :: Name
100−webgl =
101− Name "elm-community" "webgl"
102−
103−
104−{-# NOINLINE linearAlgebra #-}
105−linearAlgebra :: Name
106−linearAlgebra =
107− Name "elm-community" "linear-algebra"
108
70
109
71
110toString :: Name -> String
72toString :: Name -> String
@@ -162,6 +124,58 @@ validateProjectName text =
162
124
163
125
164
126
127+-- COMMON PACKAGE NAMES
128+
129+
130+{-# NOINLINE dummyName #-}
131+dummyName :: Name
132+dummyName =
133+ Name "user" "project"
134+
135+
136+{-# NOINLINE kernel #-}
137+kernel :: Name
138+kernel =
139+ Name "elm-lang" "kernel"
140+
141+
142+{-# NOINLINE core #-}
143+core :: Name
144+core =
145+ Name "elm-lang" "core"
146+
147+
148+{-# NOINLINE browser #-}
149+browser :: Name
150+browser =
151+ Name "elm-lang" "browser"
152+
153+
154+{-# NOINLINE virtualDom #-}
155+virtualDom :: Name
156+virtualDom =
157+ Name "elm-lang" "virtual-dom"
158+
159+
160+{-# NOINLINE html #-}
161+html :: Name
162+html =
163+ Name "elm-lang" "html"
164+
165+
166+{-# NOINLINE webgl #-}
167+webgl :: Name
168+webgl =
169+ Name "elm-community" "webgl"
170+
171+
172+{-# NOINLINE linearAlgebra #-}
173+linearAlgebra :: Name
174+linearAlgebra =
175+ Name "elm-community" "linear-algebra"
176+
177+
178+
165-- PACKAGE VERSIONS
179-- PACKAGE VERSIONS
166
180
167
181