Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/NonStd/NonStdProfile.hs
module NonStdProfile where import CString cProfile primitive 1 :: PackedString -> () profile :: String -> a -> a profile msg a = seq (cProfile (toCString msg)) a
