Commit 9080edff authored by Björn Peemöller 's avatar Björn Peemöller
Browse files

Replaced show of ModuleIdent by moduleName

parent c79f8488
......@@ -173,7 +173,7 @@ compMessage :: (Int, Int) -> String -> ModuleIdent
-> (FilePath, FilePath) -> String
compMessage (curNum, maxNum) what m (src, dst)
= '[' : lpad (length sMaxNum) (show curNum) ++ " of " ++ sMaxNum ++ "]"
++ ' ' : rpad 9 what ++ ' ' : rpad 16 (show m)
++ ' ' : rpad 9 what ++ ' ' : rpad 16 (moduleName m)
++ " ( " ++ normalise src ++ ", " ++ normalise dst ++ " )"
where
sMaxNum = show maxNum
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment