suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Recurse into array types

Browse Source
This commit is contained in:
Adam Sampson 2007-05-03 03:38:25 +00:00
parent de36b66c8d
commit 043e8e1114
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fco2/Types.hs
View File

@ -210,6 +210,7 @@ underlyingType (A.UserDataType n)
case st of case st of
A.DataType _ t -> underlyingType t A.DataType _ t -> underlyingType t
_ -> die $ "not a type name " ++ show n _ -> die $ "not a type name " ++ show n
underlyingType (A.Array ds t) = liftM (A.Array ds) (underlyingType t)
underlyingType t = return t underlyingType t = return t
-- | Add an array dimension to a type; if it's already an array it'll just add -- | Add an array dimension to a type; if it's already an array it'll just add