Jaro Reinders pushed to branch wip/reduce-type-in-stg at Glasgow Haskell Compiler / GHC

Commits:

1 changed file:

Changes:

  • compiler/GHC/StgToJS/Expr.hs
    ... ... @@ -338,12 +338,6 @@ genBody ctx startReg args e kind = do
    338 338
     
    
    339 339
       return $ la <> lav <> e <> returnStack
    
    340 340
     
    
    341
    --- TODO: move to a proper place
    
    342
    -stgKindPrimRep :: StgKind -> [PrimRep]
    
    343
    -stgKindPrimRep (MkStgKind kind) = case kindPrimRep_maybe kind of
    
    344
    -  Just rs -> rs
    
    345
    -  r -> pprPanic "stgKindPrimRep" (ppr r)
    
    346
    -
    
    347 341
     -- | Find the result type after applying the function to the arguments
    
    348 342
     --
    
    349 343
     -- It's trickier than it looks because: