@@ -333,10 +333,10 @@ instance Show Erasure where
333333 show NotErased = "NotErased"
334334
335335instance Show Arg where
336− show (Explicit n e t) = "(Explicit " ++ show n ++ " " ++ show e ++ " " ++ show t ++ ")"
337− show (Implicit n e t) = "(Implicit " ++ show n ++ " " ++ show e ++ " " ++ show t ++ ")"
338− show (Constraint n e t) = "(Constraint " ++ show n ++ " " ++ show e ++ " " ++ show t ++ ")"
336+ showPrec d (Explicit n e t) = showCon d "Explicit" $ showArg n ++ showArg e ++ showArg t
337+ showPrec d (Implicit n e t) = showCon d "Implicit" $ showArg n ++ showArg e ++ showArg t
338+ showPrec d (Constraint n e t) = showCon d "Constraint" $ showArg n ++ showArg e ++ showArg t
339339
340340instance Show TyDecl where
341− show (Declare fn args ret) = "(Declare " ++ show fn ++ " " ++
342− show args ++ " " ++ show ret ++ ")"
341+ showPrec d (Declare fn args ret) = showCon d "Declare" $ showArg fn ++
342+ showArg args ++ showArg ret