[fix binary instance for DemandEnv
John Meacham <john@repetae.net>**20070222042636] hunk ./E/Demand.hs 37
+import MapBinaryInstance
hunk ./E/Demand.hs 71
+
hunk ./E/Demand.hs 74
-        {-! derive: Binary !-}
+
+instance Binary DemandEnv where
+    put (DemandEnv dt d) = do
+        putMap dt
+        put d
+    get = do
+        m <- getMap
+        d <- get
+        return $ DemandEnv m d
+