showError (Custom name message) = "((make-error :custom) " ++ show name ++ " " ++ show message ++ ")"
showError (Custom name message) = "((make-error :custom) " ++ show name ++ " " ++ show message ++ ")"
showError (Custom name message) = "((make-error :custom) " ++ show name ++ " " ++ show message ++ ")"