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