Minor fix to codegen of INLINE pragma. (#85)

This commit is contained in:
Judah Jacobson 2017-04-03 20:25:55 -07:00 committed by Greg Steuck
parent a11a417ad5
commit 1f6115da5a
1 changed files with 1 additions and 1 deletions

View File

@ -177,7 +177,7 @@ renderOp pOp = stack $
-- to stack calling "-dump-hi" which (unnecessarily) includes the
-- inlining information, and is large for ops with many arguments.
#if __GLASGOW_HASKELL__ < 800
, "{-# NOINLINE " <> n <> "#-}"
, "{-# NOINLINE" <+> n <+> "#-}"
#endif
, n <+> "::" <+> hang 0 (typeSig empty pOp)
, n <+> "=" <+> n <> "' id"