/usr/web/sources/contrib/fernan/nhc98/src/libraries/Cabal/tests/twoMains/MainB.hs

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/libraries/Cabal/tests/twoMains/MainB.hs


module Main where
import System
import Control.Monad (when)
main = do print 'b'
          args <- getArgs
          let isB = head args
          when (isB /= "isB") (error "B is not B!")

(Return to Plan 9 Home Page)