From f2507326b8d64df381f4eb5a43dae10aac05cd1f Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 10 Nov 1998 08:51:22 +0000
Subject: [PATCH] [project @ 1998-11-10 08:51:22 by sof] do&where interaction
 tests

---
 ghc/tests/reader/should_compile/read011.hs | 24 ++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 ghc/tests/reader/should_compile/read011.hs

diff --git a/ghc/tests/reader/should_compile/read011.hs b/ghc/tests/reader/should_compile/read011.hs
new file mode 100644
index 000000000000..5b1d7d5197f1
--- /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]
+
-- 
GitLab