on master help sign in
switch variable name

relevant to https://github.com/elm/compiler/pull/1961

commit2860c2e5306cb7093ba28ac7624e8f9eb8cbc867 authorEvan Czaplicki <evancz@users.noreply.github.com> dateFri 9 Aug 2019, 11:37 (7 years ago) parent6173f08
1 file changed+2−2
compiler/src/Parse/Variable.hs+2−2
compiler/src/Parse/Variable.hs+2−2
@@ -149,14 +149,14 @@ foreignUpper toError =
149149 let
150150 !newState = P.State src upperEnd end indent row newCol
151151 !name = Name.fromPtr upperStart upperEnd
152− !foreign =
152+ !upperName =
153153 if upperStart == pos then
154154 Unqualified name
155155 else
156156 let !home = Name.fromPtr pos (plusPtr upperStart (-1)) in
157157 Qualified home name
158158 in
159− cok foreign newState
159+ cok upperName newState
160160
161161
162162foreignUpperHelp :: Ptr Word8 -> Ptr Word8 -> Col -> (# Ptr Word8, Ptr Word8, Col #)