From: simonm <unknown>
Date: Thu, 18 Feb 1999 17:55:40 +0000 (+0000)
Subject: [project @ 1999-02-18 17:55:40 by simonm]
X-Git-Tag: Approximately_9120_patches~6530
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d3a443b331824a1bf046fc7caaa73b3093775916;p=ghc-hetmet.git

[project @ 1999-02-18 17:55:40 by simonm]
Eliminate an unnecessary pattern match on J#.
---

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