- flat CNil = BSCC("flatCNil") returnPrimIO () ESCC
-
- flat (CIndent n2 seq) = BSCC("flatCIndent") flat seq ESCC
-
- flat (CAppend seq1 seq2)
- = BSCC("flatCAppend")
- flat seq1 `seqPrimIO` flat seq2
- ESCC
-
- flat CNewline = BSCC("flatCNL") _ccall_ stg_putc '\n' file ESCC
-
- flat (CCh c) = BSCC("flatCCh") _ccall_ stg_putc c file ESCC
-
- flat (CInt i) = BSCC("flatCInt") _ccall_ fprintf file percent_d i ESCC
-
- flat (CStr s) = BSCC("flatCStr") put_str s ESCC
-
-# if defined(COMPILING_GHC) && __GLASGOW_HASKELL__ >= 23
- flat (CPStr s) = BSCC("flatCPStr") put_pstr s ESCC
-# endif
+ flat CNil = returnPrimIO ()
+ flat (CIndent n2 seq) = flat seq
+ flat (CAppend s1 s2) = flat s1 `seqPrimIO` flat s2
+ flat CNewline = _ccall_ stg_putc '\n' file
+ flat (CCh c) = _ccall_ stg_putc c file
+ flat (CInt i) = _ccall_ fprintf file percent_d i
+ flat (CStr s) = put_str s
+ flat (CPStr s) = put_pstr s