From 123936e71c0c59711d8cbd462c44e2b5eb3586e5 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Thu, 20 Mar 2008 12:30:07 +0000
Subject: [PATCH] Changed addOne to use Add not Plus (we can always define a
 plusOne...)

---
 common/Types.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/common/Types.hs b/common/Types.hs
index 01519e8..31efa3e 100644
--- a/common/Types.hs
+++ b/common/Types.hs
@@ -587,7 +587,7 @@ computeStructured f (A.Several m ss)
 
 -- | Add one to an expression.
 addOne :: A.Expression -> A.Expression
-addOne e = A.Dyadic m A.Plus (makeConstant m 1) e
+addOne e = A.Dyadic m A.Add (makeConstant m 1) e
   where m = findMeta e
 
 -- | Add two expressions.