/usr/web/sources/contrib/fernan/nhc98/src/prelude/NonStd/NonStdTrace.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/NonStd/NonStdTrace.hs


module NonStdTrace where

import IO
import PreludeBuiltin

trace :: String -> a -> a
trace [] a = a
trace (x:xs) a = _hPutChar stderr x `_seq` trace xs a

(Return to Plan 9 Home Page)