showError (NotImplemented message unhandled) = "((make-error :not-implemented) " ++ show message ++ " " ++ show unhandled ++ ")"
showError (NotImplemented message unhandled) = "((make-error :not-implemented) " ++ show message ++ " " ++ show unhandled ++ ")"
showError (NotImplemented message unhandled) = "((make-error :not-implemented) " ++ show message ++ " " ++ show unhandled ++ ")"