From 35d13456b1266237b7e79961b0b79cc0adb198e1 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 4 Sep 1997 00:05:57 +0000
Subject: [PATCH] [project @ 1997-09-04 00:05:57 by sof] syntax fix

---
 ghc/lib/ghc/ArrBase.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/lib/ghc/ArrBase.lhs b/ghc/lib/ghc/ArrBase.lhs
index e62aceb..0a65a3c 100644
--- a/ghc/lib/ghc/ArrBase.lhs
+++ b/ghc/lib/ghc/ArrBase.lhs
@@ -562,7 +562,7 @@ freezeFloatArray (MutableByteArray ixs arr#) = ST $ \ (S# s#) ->
 	    = case (readFloatArray#  from# cur#     s#)  of { StateAndFloat# s1# ele ->
 	      case (writeFloatArray# to#   cur# ele s1#) of { s2# ->
 	      copy (cur# +# 1#) from# to# s1#
-	      }
+	      }}
 
 freezeDoubleArray (MutableByteArray ixs arr#) = ST $ \ (S# s#) ->
     case rangeSize ixs     of { I# n# ->
@@ -592,7 +592,7 @@ freezeDoubleArray (MutableByteArray ixs arr#) = ST $ \ (S# s#) ->
 	    = case (readDoubleArray#  from# cur#     s#)  of { StateAndDouble# s1# ele ->
 	      case (writeDoubleArray# to#   cur# ele s1#) of { s2# ->
 	      copy (cur# +# 1#) end# from# to# s1#
-	      }
+	      }}
 
 unsafeFreezeArray     :: Ix ix => MutableArray s ix elt -> ST s (Array ix elt)  
 unsafeFreezeByteArray :: Ix ix => MutableByteArray s ix -> ST s (ByteArray ix)
-- 
1.7.10.4