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

Fixed underlyingType not recursing properly into the inner types in arrays

Browse Source
This commit is contained in:
Neil Brown 2008-02-27 18:23:53 +00:00
parent eef0ac53e0
commit 1afea6c62c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
common/Types.hs
View File

@ -323,7 +323,8 @@ underlyingType m = underlyingType'
underlyingType'' :: A.Type -> m A.Type underlyingType'' :: A.Type -> m A.Type
underlyingType'' t@(A.UserDataType _) underlyingType'' t@(A.UserDataType _)
= resolveUserType m t >>= underlyingType m = resolveUserType m t >>= underlyingType m
underlyingType'' (A.Array ds t) = return $ addDimensions ds t underlyingType'' (A.Array ds t)
= underlyingType m t >>* addDimensions ds
underlyingType'' t = doGeneric t underlyingType'' t = doGeneric t
-- | Like underlyingType, but only do the "outer layer": if you give this a -- | Like underlyingType, but only do the "outer layer": if you give this a