From 0db1f01c3b3c65d5c5835109fda4ac0de2a978e1 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 4 Dec 1997 14:55:29 +0000
Subject: [PATCH] [project @ 1997-12-04 14:55:29 by simonm] lazify
strictToLazyST a bit.
---
ghc/lib/glaExts/LazyST.lhs | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/ghc/lib/glaExts/LazyST.lhs b/ghc/lib/glaExts/LazyST.lhs
index b8480dfa2aa9..4c44e30ab456 100644
--- a/ghc/lib/glaExts/LazyST.lhs
+++ b/ghc/lib/glaExts/LazyST.lhs
@@ -100,8 +100,11 @@ unsafeFreezeSTArray (STArray arr) = strictToLazyST (unsafeFreezeArray arr)
strictToLazyST :: STBase.ST s a -> ST s a
strictToLazyST (STBase.ST m) = ST $ \s ->
- let STBase.S# s# = s in
- case m s# of { STBase.STret s2# r -> (r, STBase.S# s2#) }
+ let
+ STBase.S# s# = s
+ STBase.STret s2# r = m s#
+ in
+ (r, STBase.S# s2#)
lazyToStrictST :: ST s a -> STBase.ST s a
lazyToStrictST (ST m) = STBase.ST $ \s ->
--
GitLab