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

Fixed a bug where the default cases were left out for the recent "genericised" functions in the Types module

Browse Source
This commit is contained in:
Neil Brown 2007-09-27 10:59:35 +00:00
parent 4a0732629d
commit 47052d5f39
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/Types.hs
View File

@ -290,6 +290,7 @@ underlyingType = everywhereM (mkM underlyingType')
underlyingType' t@(A.UserDataType _) underlyingType' t@(A.UserDataType _)
= resolveUserType t >>= underlyingType = resolveUserType t >>= underlyingType
underlyingType' (A.Array ds t) = return $ addDimensions ds t underlyingType' (A.Array ds t) = return $ addDimensions ds t
underlyingType' t = return 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
-- user type that's an array of user types, then you'll get back an array of -- user type that's an array of user types, then you'll get back an array of
@ -498,6 +499,7 @@ simplifyType = everywhereM (mkM simplifyType')
case st of case st of
A.DataType _ t -> return t A.DataType _ t -> return t
A.RecordType _ _ _ -> return origT A.RecordType _ _ _ -> return origT
simplifyType' t = return t
--}}} --}}}
--{{{ sizes of types --{{{ sizes of types