From f4ed82d8f48813c28d553fad78ffa359335267a4 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Sat, 18 Apr 2009 20:08:09 +0000
Subject: [PATCH] Added back a line to Types that I recently removed, but which
 turns out to be needed

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

diff --git a/common/Types.hs b/common/Types.hs
index 81f8ec6..bff53d7 100644
--- a/common/Types.hs
+++ b/common/Types.hs
@@ -182,6 +182,7 @@ plainSubscriptType m (A.Array (_:ds) t)
     = return $ case ds of
                  [] -> t
                  _ -> A.Array ds t
+plainSubscriptType m (A.Mobile t) = plainSubscriptType m t
 plainSubscriptType m t = diePC m $ formatCode "Subscript of non-array type: %" t
 
 -- | Turn an expression into a 'Dimension'.