[fix uses of functional Monoid instance
John Meacham <john@repetae.net>**20061012095106] hunk ./E/Annotate.hs 66
-        local (mconcat rs) $ do
+        local (foldr (.) id rs) $ do
hunk ./E/Annotate.hs 83
-                e' <- local (mconcat rs) $ f e
+                e' <- local (foldr (.) id rs) $ f e
hunk ./E/Annotate.hs 131
-        local (mconcat $ snds bs) $ do
+        local (foldr (.) id $ snds bs) $ do
hunk ./E/Demand.hs 354
-        tell (dt:)
+        tell [dt]
hunk ./E/Demand.hs 357
-    let enva :=> siga =  foldr1 lub (dts [])
+    let enva :=> siga =  foldr1 lub dts
hunk ./E/Subst.hs 91
-        local (mconcat rs) $ do
+        local (foldr (.) id rs) $ do
hunk ./E/Subst.hs 105
-                e' <- local (mconcat rs) $ f e
+                e' <- local (foldr (.) id rs) $ f e
hunk ./E/Subst.hs 209
-        local (mconcat rs) $ do
+        local (foldr (.) id rs) $ do
hunk ./E/Subst.hs 223
-                e' <- local (mconcat rs) $ f e
+                e' <- local (foldr (.) id rs) $ f e
hunk ./FrontEnd/Rename.hs 1174
-getHsNamesFromHsPat p = execWriter (getNamesFromPat p)  []
-getNamesFromPat (HsPVar hsName) = tell (hsName:)
+getHsNamesFromHsPat p = execWriter (getNamesFromPat p)
+getNamesFromPat (HsPVar hsName) = tell [hsName]
hunk ./FrontEnd/Rename.hs 1177
-    tell (hsName:)
+    tell [hsName]
hunk ./FrontEnd/Rename.hs 1214
-getHsNamesFromHsType t = execWriter (getNamesFromType t) []
-getNamesFromType (HsTyVar hsName) = tell (hsName:)
+getHsNamesFromHsType t = execWriter (getNamesFromType t)
+getNamesFromType (HsTyVar hsName) = tell [hsName]
hunk ./Util/Seq.hs 52
-    deriving(Monoid)
+
hunk ./Util/Seq.hs 121
-
+instance Monoid (Seq a) where
+    mempty = empty
+    mappend = append