Update Trac ticket URLs to point to GitLab
[ghc.git] / testsuite / tests / deSugar / should_compile / T3263-1.hs
1 -- #3263. New kind of warning on ignored monadic bindings
2
3 module T3263 where
4
5 nullM :: IO ()
6 nullM = return ()
7
8 nonNullM :: IO Int
9 nonNullM = return 10
10
11 -- No warning
12 t1 = do
13 nonNullM
14
15 -- No warning
16 t2 = nonNullM
17
18 -- No warning
19 t3 = do
20 nullM
21 nonNullM
22
23 -- Warning
24 t4 = do
25 nonNullM
26 nullM
27
28 -- No warning
29 t5 = do
30 _ <- nonNullM
31 nullM
32
33 -- Warning
34 t6 = mdo
35 nonNullM
36 nullM