1
0
Fork 0
mirror of https://github.com/tensorflow/haskell.git synced 2024-11-23 19:39:43 +01:00

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 Christian Berentsen
parent 719a715e90
commit b827612c71

View file

@ -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"