Tweaked the formatting of an error message

This commit is contained in:
Neil Brown 2008-02-02 17:24:28 +00:00
parent 330266e682
commit 0800fc7b87

View File

@ -86,7 +86,7 @@ checkArrayUsage (m,p) = mapM_ (checkIndexes m) $ Map.toList $
do sol <- formatSolution varMapping (getCounterEqs vm)
cx <- showCode lx
cy <- showCode ly
dieP m $ "Indexes of array \"" ++ userArrName ++ "\""
dieP m $ "Indexes of array \"" ++ userArrName ++ "\" "
++ "(\"" ++ cx ++ "\" and \"" ++ cy ++ "\") could overlap"
++ if sol /= "" then " when: " ++ sol else ""