blob: b584e51b978e7c63ddf19c0884a6fc57a18e2d63 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE Safe #-}
-- Since Safe we require base package be trusted to compile
module Check01_B where
import Check01_A
mainM :: Int -> Int
mainM n = trace "Allowed Leak" $ n * 2
|