git.iko.soy/elk
on master help sign in
Rename Elm.Compiler.parseDependencies to parseHeader
0a7b765Evan Czaplicki
src/Elm/Compiler.hs+7−7
compare with master
unifiedsplit
@@ -6,7 +6,7 @@ module Elm.Compiler
6 , Localizer, dummyLocalizer
6 , Localizer, dummyLocalizer
7 , Error, errorToDoc, errorToJson
7 , Error, errorToDoc, errorToJson
8 , Warning, warningToDoc, warningToJson
8 , Warning, warningToDoc, warningToJson
9− , parseDependencies, Tag(..)
9+ , Tag(..), parseHeader
10 )
10 )
11 where
11 where
12
12
@@ -167,24 +167,24 @@ warningToJson (Localizer localizer) location (Warning wrn) =
167
167
168
168
169
169
170−-- DEPENDENCIES
170+-- PARSE HEADER
171
171
172
172
173data Tag = Normal | Effect | Port
173data Tag = Normal | Effect | Port
174
174
175
175
176−parseDependencies :: Package.Name -> Text -> Either Error (Tag, Maybe M.Raw, [M.Raw])
176+parseHeader :: Package.Name -> Text -> Either Error (Tag, Maybe M.Raw, [M.Raw])
177−parseDependencies pkgName sourceCode =
177+parseHeader pkgName sourceCode =
178 case Parse.run Parse.header sourceCode of
178 case Parse.run Parse.header sourceCode of
179 Right header ->
179 Right header ->
180− Right $ getDeps pkgName header
180+ Right $ toHeaderSummary pkgName header
181
181
182 Left err ->
182 Left err ->
183 Left (Error (A.map Error.Syntax err))
183 Left (Error (A.map Error.Syntax err))
184
184
185
185
186−getDeps :: Package.Name -> Module.Header [Module.UserImport] -> (Tag, Maybe M.Raw, [M.Raw])
186+toHeaderSummary :: Package.Name -> Module.Header [Module.UserImport] -> (Tag, Maybe M.Raw, [M.Raw])
187−getDeps pkgName (Module.Header maybeHeaderDecl imports) =
187+toHeaderSummary pkgName (Module.Header maybeHeaderDecl imports) =
188 let
188 let
189 dependencies =
189 dependencies =
190 if pkgName == Package.core
190 if pkgName == Package.core