Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/prelude/NonStd/Warning.hs
module Warning where import NonStdTrace warning :: String -> a -> a warning s = trace ("WARNING!! "++s)