@@ -1144,11 +1144,11 @@ clause syn
1144 -- lhs application "with" clause or function clause
1144 -- lhs application "with" clause or function clause
1145 <|> do pushIndent
1145 <|> do pushIndent
1146 (n, nfc, capp, wargs) <- lhs
1146 (n, nfc, capp, wargs) <- lhs
1147+ modify $ \ist -> ist { lastParse = Just n }
1147 (do (rs, fc) <- withExtent (rhs syn n)
1148 (do (rs, fc) <- withExtent (rhs syn n)
1148 let wsyn = syn { syn_namespace = [] }
1149 let wsyn = syn { syn_namespace = [] }
1149 (wheres, nmap) <- whereBlock n wsyn <* popIndent
1150 (wheres, nmap) <- whereBlock n wsyn <* popIndent
1150 <|> ([], []) <$ terminator
1151 <|> ([], []) <$ terminator
1151− modify $ \ist -> ist { lastParse = Just n }
1152 return $ PClause fc n capp wargs rs wheres) <|> (do
1152 return $ PClause fc n capp wargs rs wheres) <|> (do
1153 popIndent
1153 popIndent
1154 ((wval, pn), fc) <- withExtent $ do
1154 ((wval, pn), fc) <- withExtent $ do
@@ -1159,7 +1159,6 @@ clause syn
1159 openBlock
1159 openBlock
1160 ds <- some $ fnDecl syn
1160 ds <- some $ fnDecl syn
1161 closeBlock
1161 closeBlock
1162− modify $ \ist -> ist { lastParse = Just n }
1163 let withs = map (fillLHSD n capp wargs) $ concat ds
1162 let withs = map (fillLHSD n capp wargs) $ concat ds
1164 return $ PWith fc n capp wargs wval pn withs)
1163 return $ PWith fc n capp wargs wval pn withs)
1165 <?> "function clause"
1164 <?> "function clause"