ghc/tests/cpranal/should_compile/Cpr001.hs

   1 module Cpr001
   2     (intpInstr) where
   3
   4 import Cpr001_imp
   5
   6 -- -------------------------------------------------------------------
   7
   8 intpInstr       :: Instr -> MST ()
   9
  10 intpInstr (SysCall "exit")
  11     = setMTerminated
  12
  13 intpInstr (SysCall call)
  14     = setMSvc call
  15
  16 -- -------------------------------------------------------------------