# LANGUAGE Trustworthy #
# OPTIONS_GHC -fwarn - safe #
# OPTIONS_GHC -fwarn - unsafe #

-- | Trivial Unsafe Module
module UnsafeWarn03 where

import System.IO.Unsafe

f :: IO a -> a
f = unsafePerformIO


 | Trivial Unsafe Module
# LANGUAGE Trustworthy #
# OPTIONS_GHC -fwarn - safe #
# OPTIONS_GHC -fwarn - unsafe #

module UnsafeWarn03 where

import System.IO.Unsafe

f :: IO a -> a
f = unsafePerformIO

