Put core name in shared library
commit1c6abbfbad31c17d15732e8403435d202dd0e015
authorjmite <jmitdase@gmail.com>
dateThu 27 Aug 2015, 11:14 (11 years ago)
parentb001556
src/Compile.hs+1−1
@@ -28,7 +28,7 @@ compile packageName isRoot interfaces source =
2828 -- determine if default imports should be added
2929 -- only elm-lang/core is exempt
3030 let needsDefaults =
31− not (packageName == Package.Name "elm-lang" "core")
31+ not (packageName == Package.coreName)
3232
3333 -- Parse the source code
3434 validModule <-
src/Elm/Package.hs+5
@@ -24,6 +24,11 @@ dummyName =
2424 Name "USER" "PROJECT"
2525
2626
27+coreName :: Name
28+coreName =
29+ Name "elm-lang" "core"
30+
31+
2732toString :: Name -> String
2833toString name =
2934 user name ++ "/" ++ project name