From 2cf3579446b603b322ed3f9bb438ecbe1667f880 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Mon, 6 Aug 2007 23:24:12 +0000
Subject: [PATCH] Fix an unused-bind warning -- rhsSizes isn't used when
 retyping

---
 GenerateC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/GenerateC.hs b/GenerateC.hs
index 598a1b4..2a4501b 100644
--- a/GenerateC.hs
+++ b/GenerateC.hs
@@ -1308,7 +1308,7 @@ cintroduceSpec ops (A.Specification _ n (A.Proc _ sm fs p))
           tell ["}\n"]
 cintroduceSpec ops (A.Specification _ n (A.Retypes m am t v))
     =  do origT <- typeOfVariable v
-          let (rhs, rhsSizes) = abbrevVariable ops A.Abbrev origT v
+          let (rhs, _) = abbrevVariable ops A.Abbrev origT v
           call genDecl ops am t n
           tell [" = "]
           -- For scalar types that are VAL abbreviations (e.g. VAL INT64),