[make CPR information serializable
John Meacham <john@repetae.net>**20051003061135] hunk ./E/CPR.hs 14
+import Binary
hunk ./E/CPR.hs 26
+    {-! derive: GhcBinary !-}
hunk ./E/E.hs 20
-import Info.Binary()
+import {-# SOURCE #-} Info.Binary(putInfo,getInfo)
hunk ./E/E.hs 115
-        put_ bh nf
+        putInfo bh nf
hunk ./E/E.hs 119
-        put_ bh nf
+        putInfo bh nf
hunk ./E/E.hs 124
-        put_ bh nf
+        putInfo bh nf
hunk ./E/E.hs 128
-        nf <- get bh
+        nf <- getInfo bh
hunk ./Info/Binary.hs 1
-module Info.Binary() where
+module Info.Binary(putInfo, getInfo) where
hunk ./Info/Binary.hs 11
+import E.CPR
hunk ./Info/Binary.hs 14
+
hunk ./Info/Binary.hs 28
-    cb (u :: ExportStatus)
+    cb (u :: ExportStatus),
+    cb (u :: E.CPR.Val)
+ --   cb (u :: E.Strictness.SA)
hunk ./Info/Binary.hs 53
-    put_ h (Info ds) = do
-        let ds' = concatMap (\d -> do
-                let ps = entryType d
-                x <- Map.lookup ps binTable
-                return (ps,entryThing d,x)
-              )  (Map.elems ds)
-        put_ h (length ds')
-        mapM_ (putDyn h) ds'
-    get h = do
-        (n::Int) <- get h
-        xs <- replicateM n (getDyn h)
-        return (Info $ Map.fromList [ (entryType x, x) | x <- xs])
+    put_ h nfo = putInfo h nfo
+    get h = getInfo h
hunk ./Info/Binary.hs 57
+putInfo h (Info ds) = do
+    let ds' = concatMap (\d -> do
+            let ps = entryType d
+            x <- Map.lookup ps binTable
+            return (ps,entryThing d,x)
+          )  (Map.elems ds)
+    put_ h (length ds')
+    mapM_ (putDyn h) ds'
+
+getInfo h = do
+    (n::Int) <- get h
+    xs <- replicateM n (getDyn h)
+    return (Info $ Map.fromList [ (entryType x, x) | x <- xs])
addfile ./Info/Binary.hs-boot
hunk ./Info/Binary.hs-boot 1
+module Info.Binary where
+
+import Info.Info
+import Binary
+
+putInfo :: Binary.BinHandle -> Info.Info.Info -> IO ()
+getInfo :: Binary.BinHandle -> IO Info.Info.Info