From 14e375247c05de7638688dd35ad3658005b75f7c Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 21 Mar 2008 19:32:07 +0000
Subject: [PATCH] Added an error message to transformConstr for when the type
 is not supported

---
 transformations/SimplifyExprs.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/transformations/SimplifyExprs.hs b/transformations/SimplifyExprs.hs
index b51ade9..fab6f06 100644
--- a/transformations/SimplifyExprs.hs
+++ b/transformations/SimplifyExprs.hs
@@ -30,6 +30,7 @@ import EvalLiterals
 import Metadata
 import Pass
 import qualified Properties as Prop
+import ShowCode
 import Types
 import Utils
 
@@ -235,6 +236,7 @@ transformConstr = doGeneric `ext1M` doStructured
                return $ declDest $ A.ProcThen m''
                  (A.Seq m'' $ A.Rep m'' rep $ appendItem)
                  scope'
+             _ -> diePC m $ formatCode "Unsupported type for array constructor: %" t
       where
         declDest :: Data a => A.Structured a -> A.Structured a
         declDest = A.Spec m (A.Specification m' n (A.Declaration m' t))