git.iko.soy/elk
on master help sign in
Error when no module name is given!
f71818dEvan Czaplicki
compiler/src/Parse/Variable.hs+17−12
compare with master
unifiedsplit
@@ -85,21 +85,26 @@ reservedWords =
85
85
86moduleName :: (Row -> Col -> x) -> Parser x Name.Name
86moduleName :: (Row -> Col -> x) -> Parser x Name.Name
87moduleName toError =
87moduleName toError =
88− P.Parser $ \(P.State pos end indent row col) cok _ _ eerr ->
88+ P.Parser $ \(P.State pos end indent row col) cok _ cerr eerr ->
89 let
89 let
90 (# pos1, col1 #) = chompUpper pos end col
90 (# pos1, col1 #) = chompUpper pos end col
91− (# status, newPos, newCol #) = moduleNameHelp pos1 end col1
92 in
91 in
92+ if pos == pos1 then
93+ eerr row col toError
94+ else
95+ let
96+ (# status, newPos, newCol #) = moduleNameHelp pos1 end col1
97+ in
93− case status of
98+ case status of
94− Good ->
99+ Good ->
95− let
100+ let
96− !name = Name.fromPtr pos newPos
101+ !name = Name.fromPtr pos newPos
97− !newState = P.State newPos end indent row newCol
102+ !newState = P.State newPos end indent row newCol
98− in
103+ in
99− cok name newState
104+ cok name newState
100−
105+
101− Bad ->
106+ Bad ->
102− eerr row newCol toError
107+ cerr row newCol toError
103
108
104
109
105data ModuleNameStatus
110data ModuleNameStatus