@@ -6,7 +6,7 @@ module Elm.Compiler
66 , Localizer, dummyLocalizer
77 , Error, errorToDoc, errorToJson
88 , Warning, warningToDoc, warningToJson
9− , parseDependencies, Tag(..)
9+ , Tag(..), parseHeader
1010 )
1111 where
1212
@@ -167,24 +167,24 @@ warningToJson (Localizer localizer) location (Warning wrn) =
167167
168168
169169
170−-- DEPENDENCIES
170+-- PARSE HEADER
171171
172172
173173data Tag = Normal | Effect | Port
174174
175175
176−parseDependencies :: Package.Name -> Text -> Either Error (Tag, Maybe M.Raw, [M.Raw])
177−parseDependencies pkgName sourceCode =
176+parseHeader :: Package.Name -> Text -> Either Error (Tag, Maybe M.Raw, [M.Raw])
177+parseHeader pkgName sourceCode =
178178 case Parse.run Parse.header sourceCode of
179179 Right header ->
180− Right $ getDeps pkgName header
180+ Right $ toHeaderSummary pkgName header
181181
182182 Left err ->
183183 Left (Error (A.map Error.Syntax err))
184184
185185
186−getDeps :: Package.Name -> Module.Header [Module.UserImport] -> (Tag, Maybe M.Raw, [M.Raw])
187−getDeps pkgName (Module.Header maybeHeaderDecl imports) =
186+toHeaderSummary :: Package.Name -> Module.Header [Module.UserImport] -> (Tag, Maybe M.Raw, [M.Raw])
187+toHeaderSummary pkgName (Module.Header maybeHeaderDecl imports) =
188188 let
189189 dependencies =
190190 if pkgName == Package.core