testsuite/tests/safeHaskell/safeInfered/UnsafeWarn03.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# LANGUAGE Haskell2010 #-}
{-# 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