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

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


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

(Return to Plan 9 Home Page)