[switch to using new CFF bytestring based routines
John Meacham <john@repetae.net>**20080211045225] hunk ./Ho/Build.hs 59
+import qualified Data.ByteString as BS
hunk ./Ho/Build.hs 63
-import qualified Util.SHA1 as SHA1
hunk ./Ho/Build.hs 97
-instance DocLike d => PPrint d SHA1.Hash where
-    pprintPrec _ h = tshow h
hunk ./Ho/Build.hs 308
-    fh <- openBinaryFile fn ReadMode
-    (ct,mp) <- lazyReadCFF fh
+    bs <- BS.readFile fn
+    (ct,mp) <- bsCFF bs
hunk ./Ho/Build.hs 311
-    [rhh] <- Map.lookup cff_jhdr mp
-    [rho] <- Map.lookup cff_core mp
+    Just rhh <- return $ lookup cff_jhdr mp
+    Just rho <- return $ lookup cff_core mp
hunk ./Ho/Build.hs 315
-
---    c <- L.hGetContents fh
---    let (m1,hh,ho) = decode (decompress c)
---    when (m1 /= magic) (putErrDie $ "Bad ho file magic1:" <+> fn)