Add in `-fwarn-trustworthy-safe` flag.
[ghc.git] / testsuite / tests / safeHaskell / safeInfered / UnsafeWarn01.hs
1 {-# OPTIONS_GHC -fwarn-safe #-}
2 {-# OPTIONS_GHC -fwarn-unsafe #-}
3
4 -- | Trivial Unsafe Module
5 module UnsafeWarn01 where
6
7 import System.IO.Unsafe
8
9 f :: IO a -> a
10 f = unsafePerformIO
11