b33cf77 · elk · git.iko.soy

git.iko.soy/elk

begin using new Parse.Module.fromByteString API in Elm.Details

commitb33cf77b8e8a13a9861365c0edaf92714bb23d34 authorEvan Czaplicki <evancz@users.noreply.github.com> dateMon 29 Jul 2019, 16:01 (7 years ago) parent0e16843

2 files changed+2−1

compare with master

unifiedsplit

builder/src/Elm/Details.hs+1−1 compiler/src/Parse/Module.hs+1

builder/src/Elm/Details.hs+1−1

@@ -595,7 +595,7 @@ crawlModule foreignDeps mvar pkg src docsStatus name =

595595crawlFile :: Map.Map ModuleName.Raw ForeignInterface -> MVar StatusDict -> Pkg.Name -> FilePath -> DocsStatus -> ModuleName.Raw -> FilePath -> IO (Maybe Status)

596596crawlFile foreignDeps mvar pkg src docsStatus expectedName path =

597597 do bytes <- File.readUtf8 path

598− case Parse.fromByteString pkg bytes of

598+ case Parse.fromByteString (Parse.Package pkg) bytes of

599599 Right modul@(Src.Module (Just (A.At _ actualName)) _ _ imports _ _ _ _ _) | expectedName == actualName ->

600600 do deps <- crawlImports foreignDeps mvar pkg src imports

601601 return (Just (SLocal docsStatus deps modul))

compiler/src/Parse/Module.hs+1

@@ -2,6 +2,7 @@

22{-# LANGUAGE OverloadedStrings #-}

33module Parse.Module

44 ( fromByteString

5+ , ProjectType(..)

56 , chompImports

67 , chompImport

78 )