projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
2caf4c6
)
[project @ 1997-12-04 14:55:29 by simonm]
author
simonm
<unknown>
Thu, 4 Dec 1997 14:55:29 +0000
(14:55 +0000)
committer
simonm
<unknown>
Thu, 4 Dec 1997 14:55:29 +0000
(14:55 +0000)
lazify strictToLazyST a bit.
ghc/lib/glaExts/LazyST.lhs
patch
|
blob
|
history
diff --git
a/ghc/lib/glaExts/LazyST.lhs
b/ghc/lib/glaExts/LazyST.lhs
index
b8480df
..
4c44e30
100644
(file)
--- 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 ->