mirror of
https://github.com/tensorflow/haskell.git
synced 2024-11-23 03:19:44 +01:00
Minor fix to codegen of INLINE pragma. (#85)
This commit is contained in:
parent
a11a417ad5
commit
1f6115da5a
1 changed files with 1 additions and 1 deletions
|
@ -177,7 +177,7 @@ renderOp pOp = stack $
|
||||||
-- to stack calling "-dump-hi" which (unnecessarily) includes the
|
-- to stack calling "-dump-hi" which (unnecessarily) includes the
|
||||||
-- inlining information, and is large for ops with many arguments.
|
-- inlining information, and is large for ops with many arguments.
|
||||||
#if __GLASGOW_HASKELL__ < 800
|
#if __GLASGOW_HASKELL__ < 800
|
||||||
, "{-# NOINLINE " <> n <> "#-}"
|
, "{-# NOINLINE" <+> n <+> "#-}"
|
||||||
#endif
|
#endif
|
||||||
, n <+> "::" <+> hang 0 (typeSig empty pOp)
|
, n <+> "::" <+> hang 0 (typeSig empty pOp)
|
||||||
, n <+> "=" <+> n <> "' id"
|
, n <+> "=" <+> n <> "' id"
|
||||||
|
|
Loading…
Reference in a new issue