Simon Peyton Jones pushed to branch wip/T27629 at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/Core/Opt/Specialise.hs
    ... ... @@ -2612,7 +2612,7 @@ specHeader subst (bndr:bndrs) (SpecDict dict_arg : args)
    2612 2612
         exprSomeFreeVars (not . (`elemInScopeSet` substInScopeSet subst)) dict_arg
    
    2613 2613
       = -- Do not specialise if `dict_arg` has any any free vars that are /not/ in scope
    
    2614 2614
         -- See Note [Weird special case for SpecDict]
    
    2615
    -    specHeader mod subst (bndr:bndrs) (UnspecArg : args)
    
    2615
    +    specHeader subst (bndr:bndrs) (UnspecArg : args)
    
    2616 2616
     
    
    2617 2617
       | otherwise
    
    2618 2618
       = do { -- Make up a fresh binder to use in the RULE