testsuite/tests/qualifieddo/should_fail/qdofail003.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE QualifiedDo #-}

import Prelude as P hiding ((>>))


-- Tests that an out-of-scope (>>) is reported
main = do
  print $ P.do
    x <- [1, 2]
    y <- [1, 2]
    [1, 2]
    P.return (x, y)