Don't try and do `take' of a negative number in compMsg. The Golden
Lemon award for 2001 goes to <name_deleted_to_protect_the_guilty_party>.
}}}
compMsg mod location =
}}}
compMsg mod location =
- mod_str ++ take (12 - length mod_str) (repeat ' ')
+ mod_str ++ take (max 0 (16 - length mod_str)) (repeat ' ')
++ " (" ++ unJust "hscRecomp" (ml_hs_file location) ++ ")"
where mod_str = moduleUserString mod
++ " (" ++ unJust "hscRecomp" (ml_hs_file location) ++ ")"
where mod_str = moduleUserString mod