Commit 9cd66e61 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #3263

parent 20bc50ba
{-# OPTIONS_GHC -Wall #-}
-- Test Trac #3263
module T3263 where
foo :: IO ()
foo = do { getChar
; return () }
Warning: A do-notation statement discarded a result of type Char.
Suppress this warning by saying "_ <- getChar",
or by using the flag -fno-warn-unused-do-bind
......@@ -59,3 +59,4 @@ test('1914',
test('2976', normal, ghci_script, ['2976.script'])
test('2816', if_platform('i386-unknown-mingw32',expect_broken(3398)), ghci_script, ['2816.script'])
test('T789', normal, ghci_script, ['T789.script'])
test('T3263', normal, ghci_script, ['T3263.script'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment