testsuite/tests/safeHaskell/flags/SafeFlags22.hs


1
2
3
4
5
6
7
8
9
10
11

{-# OPTIONS_GHC -fwarn-unsafe #-}
-- | Basic test to see if Safe warning flags compile
-- Warn if module is infered unsafe
-- In this test the warning _should_ fire
module SafeFlags22 where

import System.IO.Unsafe

f :: Int
f = 1