[look up properties in Info
John Meacham <john@repetae.net>**20050929010034] hunk ./E/SSimplify.hs 21
+import Info.Types
hunk ./E/SSimplify.hs 435
-    forceInline x | Just n <- tvrName x, Just xs <- Map.lookup n (so_properties sopts)  = toAtom "INLINE" `elem` xs
-    forceInline _ = False
+    forceInline x | Properties p <- Info.fetch (tvrInfo x) = Set.member (toAtom "INLINE") p
hunk ./Info/Types.hs 5
+import Data.Monoid
hunk ./Info/Types.hs 14
-    deriving(Typeable,Show,Binary)
+    deriving(Typeable,Show,Binary,Monoid)