@@ -280,6 +280,8 @@ replaceSplits l ups = updateRHSs 1 (map (rep (expandBraces l)) ups)
280 nshow t = show t
280 nshow t = show t
282 -- if there's any {n} replace with {n=n}
282 -- if there's any {n} replace with {n=n}
283+ -- but don't replace it in comments
284+ expandBraces ('{' : '-' : xs) = '{' : '-' : xs
283 expandBraces ('{' : xs)
285 expandBraces ('{' : xs)
284 = let (brace, (_:rest)) = span (/= '}') xs in
286 = let (brace, (_:rest)) = span (/= '}') xs in
285 if (not ('=' `elem` brace))
287 if (not ('=' `elem` brace))