@@ -64,9 +64,12 @@ delab' ist tm fullname = de [] tm
6464
6565pshow :: IState -> Err -> String
6666pshow i (Msg s) = s
67−pshow i (CantUnify x y e s) = "Can't unify " ++ show (delab i x)
68− ++ " with " ++ show (delab i y)
69−-- ++ "\n\t(" ++ pshow i e ++ ")"
67+pshow i (CantUnify x y e s)
68+ = "Can't unify " ++ show (delab i x)
69+ ++ " with " ++ show (delab i y) ++
70+ case e of
71+ Msg "" -> ""
72+ _ -> "\n\nSpecifically:\n\t " ++ pshow i e
7073pshow i (NotInjective p x y) = "Can't verify injectivity of " ++ show (delab i p) ++
7174 " when unifying " ++ show (delab i x) ++ " and " ++
7275 show (delab i y)