From d3a443b331824a1bf046fc7caaa73b3093775916 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 18 Feb 1999 17:55:40 +0000
Subject: [PATCH] [project @ 1999-02-18 17:55:40 by simonm] Eliminate an
 unnecessary pattern match on J#.

---
 ghc/compiler/utils/StringBuffer.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 18d2756..3f6bd0a 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -114,7 +114,7 @@ hGetStringBuffer fname =
     return (StringBuffer a# read# 0# 0#)
 #else
     openFile fname ReadMode >>= \ hndl ->
-    hFileSize hndl          >>= \ len@(J# _ _ d#) ->
+    hFileSize hndl          >>= \ len ->
     let len_i = fromInteger len in
       -- Allocate an array for system call to store its bytes into.
       -- ToDo: make it robust
-- 
1.7.10.4