@@ -612,8 +612,8 @@ toParseErrorReport source modul =
612 [ D.reflow $
612 [ D.reflow $
613 "Here are some examples of valid `module` declarations:"
613 "Here are some examples of valid `module` declarations:"
614 , D.indent 4 $ D.vcat $
614 , D.indent 4 $ D.vcat $
615− [ D.fillSep [D.blue "module","Main",D.blue "exposing","(..)"]
615+ [ D.fillSep [D.cyan "module","Main",D.cyan "exposing","(..)"]
616− , D.fillSep [D.blue "module","Dict",D.blue "exposing","(Dict, empty, get)"]
616+ , D.fillSep [D.cyan "module","Dict",D.cyan "exposing","(Dict, empty, get)"]
618 , D.reflow $
618 , D.reflow $
619 "I generally recommend using an explicit exposing list. I can skip compiling a bunch\
619 "I generally recommend using an explicit exposing list. I can skip compiling a bunch\
@@ -636,10 +636,10 @@ toParseErrorReport source modul =
636 [ D.reflow $
636 [ D.reflow $
637 "I was expecting to see the module name next, like in these examples:"
637 "I was expecting to see the module name next, like in these examples:"
638 , D.indent 4 $ D.vcat $
638 , D.indent 4 $ D.vcat $
639− [ D.fillSep [D.blue "module","Dict",D.blue "exposing","(..)"]
639+ [ D.fillSep [D.cyan "module","Dict",D.cyan "exposing","(..)"]
640− , D.fillSep [D.blue "module","Maybe",D.blue "exposing","(..)"]
640+ , D.fillSep [D.cyan "module","Maybe",D.cyan "exposing","(..)"]
641− , D.fillSep [D.blue "module","Html.Attributes",D.blue "exposing","(..)"]
641+ , D.fillSep [D.cyan "module","Html.Attributes",D.cyan "exposing","(..)"]
642− , D.fillSep [D.blue "module","Json.Decode",D.blue "exposing","(..)"]
642+ , D.fillSep [D.cyan "module","Json.Decode",D.cyan "exposing","(..)"]
644 , D.reflow $
644 , D.reflow $
645 "Notice that the module names all start with capital letters. That is required!"
645 "Notice that the module names all start with capital letters. That is required!"
@@ -663,8 +663,8 @@ toParseErrorReport source modul =
663 [ D.reflow $
663 [ D.reflow $
664 "Here are some examples of valid `port module` declarations:"
664 "Here are some examples of valid `port module` declarations:"
665 , D.indent 4 $ D.vcat $
665 , D.indent 4 $ D.vcat $
666− [ D.fillSep [D.blue "port",D.blue "module","WebSockets",D.blue "exposing","(send, listen, keepAlive)"]
666+ [ D.fillSep [D.cyan "port",D.cyan "module","WebSockets",D.cyan "exposing","(send, listen, keepAlive)"]
667− , D.fillSep [D.blue "port",D.blue "module","Maps",D.blue "exposing","(Location, goto)"]
667+ , D.fillSep [D.cyan "port",D.cyan "module","Maps",D.cyan "exposing","(Location, goto)"]
669 , D.link "Note" "Read" "ports" "for more help."
669 , D.link "Note" "Read" "ports" "for more help."
@@ -684,8 +684,8 @@ toParseErrorReport source modul =
684 [ D.reflow $
684 [ D.reflow $
685 "I was expecting to see the module name next, like in these examples:"
685 "I was expecting to see the module name next, like in these examples:"
686 , D.indent 4 $ D.vcat $
686 , D.indent 4 $ D.vcat $
687− [ D.fillSep [D.blue "port",D.blue "module","WebSockets",D.blue "exposing","(send, listen, keepAlive)"]
687+ [ D.fillSep [D.cyan "port",D.cyan "module","WebSockets",D.cyan "exposing","(send, listen, keepAlive)"]
688− , D.fillSep [D.blue "port",D.blue "module","Maps",D.blue "exposing","(Location, goto)"]
688+ , D.fillSep [D.cyan "port",D.cyan "module","Maps",D.cyan "exposing","(Location, goto)"]
690 , D.reflow $
690 , D.reflow $
691 "Notice that the module names start with capital letters. That is required!"
691 "Notice that the module names start with capital letters. That is required!"
@@ -743,7 +743,7 @@ toParseErrorReport source modul =
743 "I am not sure what is going on, but I recommend starting an Elm\
743 "I am not sure what is going on, but I recommend starting an Elm\
744 \ file with the following lines:"
744 \ file with the following lines:"
746− [ D.fillSep [D.blue "import","Html"]
746+ [ D.fillSep [D.cyan "import","Html"]
748 , D.fillSep [D.green "main","="]
748 , D.fillSep [D.green "main","="]
749 , D.indent 2 $ D.fillSep [D.cyan "Html" <> ".text",D.dullyellow "\"Hello!\""]
749 , D.indent 2 $ D.fillSep [D.cyan "Html" <> ".text",D.dullyellow "\"Hello!\""]
@@ -773,10 +773,10 @@ toParseErrorReport source modul =
773 [ D.reflow $
773 [ D.reflow $
774 "I was expecting to see a module name next, like in these examples:"
774 "I was expecting to see a module name next, like in these examples:"
775 , D.indent 4 $ D.vcat $
775 , D.indent 4 $ D.vcat $
776− [ D.fillSep [D.blue "import","Dict"]
776+ [ D.fillSep [D.cyan "import","Dict"]
777− , D.fillSep [D.blue "import","Maybe"]
777+ , D.fillSep [D.cyan "import","Maybe"]
778− , D.fillSep [D.blue "import","Html.Attributes"]
778+ , D.fillSep [D.cyan "import","Html.Attributes"]
779− , D.fillSep [D.blue "import","Json.Decode"]
779+ , D.fillSep [D.cyan "import","Json.Decode"]
781 , D.reflow $
781 , D.reflow $
782 "Notice that the module names all start with capital letters. That is required!"
782 "Notice that the module names all start with capital letters. That is required!"
@@ -800,9 +800,9 @@ toParseErrorReport source modul =
800 [ D.reflow $
800 [ D.reflow $
801 "I was expecting to see an alias next, like in these examples:"
801 "I was expecting to see an alias next, like in these examples:"
802 , D.indent 4 $ D.vcat $
802 , D.indent 4 $ D.vcat $
803− [ D.fillSep [D.blue "import","Html.Attributes",D.blue "as","Attr"]
803+ [ D.fillSep [D.cyan "import","Html.Attributes",D.cyan "as","Attr"]
804− , D.fillSep [D.blue "import","WebGL.Texture",D.blue "as","Texture"]
804+ , D.fillSep [D.cyan "import","WebGL.Texture",D.cyan "as","Texture"]
805− , D.fillSep [D.blue "import","Json.Decode",D.blue "as","D"]
805+ , D.fillSep [D.cyan "import","Json.Decode",D.cyan "as","D"]
807 , D.reflow $
807 , D.reflow $
808 "Notice that the alias always starts with a capital letter. That is required!"
808 "Notice that the alias always starts with a capital letter. That is required!"
@@ -839,8 +839,8 @@ toParseErrorReport source modul =
839 "I was expecting to see the list of exposed values next. For example, here\
839 "I was expecting to see the list of exposed values next. For example, here\
840 \ are two ways to expose values from the `Html` module:"
840 \ are two ways to expose values from the `Html` module:"
841 , D.indent 4 $ D.vcat $
841 , D.indent 4 $ D.vcat $
842− [ D.fillSep [D.blue "import","Html",D.blue "exposing","(..)"]
842+ [ D.fillSep [D.cyan "import","Html",D.cyan "exposing","(..)"]
843− , D.fillSep [D.blue "import","Html",D.blue "exposing","(Html, div, text)"]
843+ , D.fillSep [D.cyan "import","Html",D.cyan "exposing","(Html, div, text)"]
845 , D.reflow $
845 , D.reflow $
846 "I generally recommend the second style. It is more explicit, making it\
846 "I generally recommend the second style. It is more explicit, making it\
@@ -886,10 +886,10 @@ toImportReport source row col =
886 [ D.reflow $
886 [ D.reflow $
887 "Here are some examples of valid `import` declarations:"
887 "Here are some examples of valid `import` declarations:"
888 , D.indent 4 $ D.vcat $
888 , D.indent 4 $ D.vcat $
889− [ D.fillSep [D.blue "import","Html"]
889+ [ D.fillSep [D.cyan "import","Html"]
890− , D.fillSep [D.blue "import","Html",D.blue "as","H"]
890+ , D.fillSep [D.cyan "import","Html",D.cyan "as","H"]
891+ , D.fillSep [D.cyan "import","Html",D.cyan "as","H",D.cyan "exposing","(..)"]
891− , D.fillSep [D.blue "import","Html",D.blue "exposing","(Html, div, text)"]
892+ , D.fillSep [D.cyan "import","Html",D.cyan "exposing","(Html, div, text)"]
892− , D.fillSep [D.blue "import","Html",D.blue "as","H",D.blue "exposing","(..)"]
894 , D.reflow $
894 , D.reflow $
895 "You are probably trying to import a different module, but try to make it look like one of these examples!"
895 "You are probably trying to import a different module, but try to make it look like one of these examples!"
@@ -1019,9 +1019,6 @@ toDeclDefReport source name declDef startRow startCol =
1020 DeclDefNameMatch defName row col ->
1020 DeclDefNameMatch defName row col ->
1022− expected = Name.toChars name
1023− actual = Name.toChars defName
1025 surroundings = A.Region (A.Position startRow startCol) (A.Position row col)
1022 surroundings = A.Region (A.Position startRow startCol) (A.Position row col)
1026 region = toRegion row col
1023 region = toRegion row col
@@ -1029,13 +1026,13 @@ toDeclDefReport source name declDef startRow startCol =
1029 Code.toSnippet source surroundings (Just region)
1026 Code.toSnippet source surroundings (Just region)
1031 D.reflow $
1028 D.reflow $
1032− "I got stuck after parsing the `" ++ expected ++ "` type annotation:"
1029+ "I just saw a type annotation for `" ++ Name.toChars name ++ "`, but it is followed by a definition for `" ++ Name.toChars defName ++ "`:"
1035 [ D.reflow $
1032 [ D.reflow $
1036− "I am seeing `" ++ actual ++ "` defined next. These names do not match! Is there a typo?"
1033+ "These names do not match! Is there a typo?"
1037 , D.indent 4 $ D.fillSep $
1034 , D.indent 4 $ D.fillSep $
1038− [D.dullyellow (D.fromChars actual),"->",D.green (D.fromChars expected)]
1035+ [D.dullyellow (D.fromName defName),"->",D.green (D.fromName name)]