From c59c2ed5f6d4906077355851b6fc1ce405379a93 Mon Sep 17 00:00:00 2001 From: Neil Brown Date: Tue, 2 Oct 2007 14:48:09 +0000 Subject: [PATCH] Removed an unused function (simplifyType) from the Types module --- common/Types.hs | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/common/Types.hs b/common/Types.hs index 38e01e3..163ed46 100644 --- a/common/Types.hs +++ b/common/Types.hs @@ -486,21 +486,6 @@ isCaseableType A.Bool = True isCaseableType t = isIntegerType t --}}} ---{{{ simplifying and comparing types --- | Simplify a type as far as possible: resolve data type aliases to their --- real types, and remove non-constant array dimensions. -simplifyType :: (CSM m, Die m) => A.Type -> m A.Type -simplifyType = everywhereM (mkM simplifyType') - where - simplifyType' :: (CSM m, Die m) => A.Type -> m A.Type - simplifyType' origT@(A.Record n) - = do st <- specTypeOfName n - case st of - A.DataType _ t -> return t - A.RecordType _ _ _ -> return origT - simplifyType' t = return t ---}}} - --{{{ sizes of types -- | The size in bytes of a data type. data BytesInResult =