blob: da0f440a50978cafd7418b19b6c12ac612cc42db (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE Safe #-}
-- | Import unsafe module Unsafe.Coerce to make sure it fails
module Main where
import Unsafe.Coerce
f :: Int
f = 2
main :: IO ()
main = putStrLn $ "X is: " ++ show f
|