path: root/testsuite/tests/ghci/scripts/T3263.hs

{-# OPTIONS_GHC -Wall #-}

-- Test Trac #3263

module T3263 where

foo :: IO ()
foo = do { getChar
         ; return () }