on master help sign in
Make sure package names are not inlined

This way they definitely get allocated only once

commit4624721d918aeb528d4155570e20bf54b09dd7ce authorEvan Czaplicki <evancz@users.noreply.github.com> dateMon 11 Dec 2017, 14:13 (9 years ago) parent55fd854
1 file changed+17−2
src/Elm/Package.hs+17−2
src/Elm/Package.hs+17−2
@@ -3,7 +3,9 @@
33module Elm.Package
44 ( Name(..)
55 , Package(..)
6− , dummyName, core, browser, virtualDom, html, webgl, linearAlgebra
6+ , dummyName, kernel, core
7+ , browser, virtualDom, html
8+ , webgl, linearAlgebra
79 , toString, toText, toUrl, toFilePath
810 , fromText
911 , Version(..)
@@ -57,36 +59,49 @@ data Package =
5759 deriving (Eq, Ord)
5860
5961
62+{-# NOINLINE dummyName #-}
6063dummyName :: Name
6164dummyName =
62− Name "user" "project"
65+ Name "user" "project"
6366
6467
68+{-# NOINLINE kernel #-}
69+kernel :: Name
70+kernel =
71+ Name "elm-lang" "kernel"
72+
73+
74+{-# NOINLINE core #-}
6575core :: Name
6676core =
6777 Name "elm-lang" "core"
6878
6979
80+{-# NOINLINE browser #-}
7081browser :: Name
7182browser =
7283 Name "elm-lang" "browser"
7384
7485
86+{-# NOINLINE virtualDom #-}
7587virtualDom :: Name
7688virtualDom =
7789 Name "elm-lang" "virtual-dom"
7890
7991
92+{-# NOINLINE html #-}
8093html :: Name
8194html =
8295 Name "elm-lang" "html"
8396
8497
98+{-# NOINLINE webgl #-}
8599webgl :: Name
86100webgl =
87101 Name "elm-community" "webgl"
88102
89103
104+{-# NOINLINE linearAlgebra #-}
90105linearAlgebra :: Name
91106linearAlgebra =
92107 Name "elm-community" "linear-algebra"