Stabel

Check-in [a4c0e85a20]
Login
Overview
Comment:Fix compile error in Main.elm
Timelines: family | ancestors | descendants | both | module-definition
Files: files | file ages | folders
SHA3-256: a4c0e85a20f69c22e72b9e47d8607878e9a8012e7ad8906e5adfe0b38cef702a
User & Date: robin.hansen on 2021-05-05 12:40:17
Other Links: branch diff | manifest | tags
Context
2021-05-05
12:42
Rename Main.elm to TestCompiler.elm to make it more clear what the module's intended use case is. check-in: a58a08df5d user: robin.hansen tags: module-definition
12:40
Fix compile error in Main.elm check-in: a4c0e85a20 user: robin.hansen tags: module-definition
12:38
Qualifier now requires the full qualified AST as it looks right now, so that if the qualifier comes ... check-in: 73a6ca37a7 user: robin.hansen tags: module-definition
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified src/Main.elm from [e620ef58fd] to [59c2c19d2d].

63
64
65
66
67
68
69




70
71
72
73
74
75
76
            let
                qualifierResult =
                    Qualifier.run
                        { packageName = ""
                        , modulePath = ""
                        , ast = ast
                        , externalModules = Dict.empty




                        }
                        |> Result.map (\qast -> { qast | words = Dict.update entry (Maybe.map setEntryPoint) qast.words })

                setEntryPoint word =
                    { word | metadata = Metadata.asEntryPoint word.metadata }
            in
            case qualifierResult of







>
>
>
>







63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
            let
                qualifierResult =
                    Qualifier.run
                        { packageName = ""
                        , modulePath = ""
                        , ast = ast
                        , externalModules = Dict.empty
                        , inProgressAST =
                            { types = Dict.empty
                            , words = Dict.empty
                            }
                        }
                        |> Result.map (\qast -> { qast | words = Dict.update entry (Maybe.map setEntryPoint) qast.words })

                setEntryPoint word =
                    { word | metadata = Metadata.asEntryPoint word.metadata }
            in
            case qualifierResult of