@@ -1115,7 +1115,8 @@ findFC x = let s = show (plain x) in
11151115 case span (/= ':') s of
11161116 (failname, ':':rest) -> case span isDigit rest of
11171117 (line, ':':rest') -> case span isDigit rest' of
1118− (col, ':':msg) -> (FC failname (read line) (read col), msg)
1118+ (col, ':':msg) -> let pos = (read line, read col) in
1119+ (FC failname pos pos, msg)
11191120
11201121-- | A program is a list of declarations, possibly with associated
11211122-- documentation strings.