From: simonmar <unknown>
Date: Wed, 18 Jan 2006 10:58:15 +0000 (+0000)
Subject: [project @ 2006-01-18 10:58:15 by simonmar]
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=22f93053a78ac9b931cc51f8dec07539ad384ec3;p=ghc-hetmet.git

[project @ 2006-01-18 10:58:15 by simonmar]
Remove dead error

(darcs patch from Ian Lynagh)
---

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index cdb9206..7a1ca51 100644
--- a/ghc/compiler/utils/Binary.hs
+++ b/ghc/compiler/utils/Binary.hs
@@ -750,7 +750,6 @@ instance Binary FastString where
 	   writeIORef j_r (j+1)
 	   writeIORef out_r (addToUFM out uniq (j,f))
     }
-  put_ bh s = error ("Binary.put_(FastString): " ++ show (unpackFS s))
 
   get bh = do 
 	j <- get bh