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