0871205bb7af4c326fe255687e799023ec39796a
[ghc.git] / testsuite / 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 -- -------------------------------------------------------------------