recursion-ninja pushed to branch wip/TTG-No-Orphans at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/Language/Haskell/Syntax/Decls/Foreign.hs
    ... ... @@ -213,7 +213,7 @@ data CCallTarget pass
    213 213
     
    
    214 214
     instance (NFData (XStaticTarget pass), NFData (XDynamicTarget pass), NFData (XXCCallTarget pass))
    
    215 215
           => NFData (CCallTarget pass) where
    
    216
    -  rnf (StaticTarget x a b) = rnf a `seq` rnf b `seq` rnf x -- 'x' is forced last to match "legacy" GHC semantics
    
    216
    +  rnf (StaticTarget x a b) = rnf a `seq` rnf b `seq` rnf x
    
    217 217
       rnf (DynamicTarget x) = rnf x
    
    218 218
       rnf (XCCallTarget x) = rnf x
    
    219 219