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:
243e568
)
[project @ 1998-11-10 08:51:22 by sof]
author
sof
<unknown>
Tue, 10 Nov 1998 08:51:22 +0000
(08:51 +0000)
committer
sof
<unknown>
Tue, 10 Nov 1998 08:51:22 +0000
(08:51 +0000)
do&where interaction tests
ghc/tests/reader/should_compile/read011.hs
[new file with mode: 0644]
patch
|
blob
diff --git a/ghc/tests/reader/should_compile/read011.hs
b/ghc/tests/reader/should_compile/read011.hs
new file mode 100644
(file)
index 0000000..
5b1d7d5
--- /dev/null
+++ b/
ghc/tests/reader/should_compile/read011.hs
@@ -0,0
+1,24
@@
+--!!! do & where interaction
+module ShouldSucceed where
+
+f1 :: IO a -> IO [a]
+f1 x = do
+ v <- x
+ return [v]
+ where
+ g x = [x,x]
+
+f2 :: IO a -> IO [a]
+f2 x = do
+ v <- x
+ return (g v)
+ where
+ g x = [x,x]
+
+f3 :: IO a -> IO [a]
+f3 x = do
+ v <- x
+ return (g v)
+ where
+ g x = [x,x]
+