Added back a line to Types that I recently removed, but which turns out to be needed

2009-04-18 20:08:09 +00:00 · 2009-04-18 20:08:09 +00:00 · f4ed82d8f4
commit f4ed82d8f4
parent 307b0f906f
1 changed files with 1 additions and 0 deletions
--- 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'.