diff options
| -rw-r--r-- | ghc/compiler/utils/Binary.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs index cdb9206329..7a1ca515b7 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 |