[Git][ghc/ghc][wip/T25281] Wibble

Simon Peyton Jones (@simonpj) gitlab at gitlab.haskell.org
Fri Oct 4 14:44:58 UTC 2024



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


Commits:
e6d281e3 by Simon Peyton Jones at 2024-10-04T15:44:41+01:00
Wibble

- - - - -


1 changed file:

- compiler/GHC/HsToCore/Ticks.hs


Changes:

=====================================
compiler/GHC/HsToCore/Ticks.hs
=====================================
@@ -293,7 +293,7 @@ addTickLHsBind (L pos (funBind@(FunBind { fun_id = L _ id, fun_matches = matches
 -- TODO: Revisit this
 addTickLHsBind (L pos (pat@(PatBind { pat_lhs = lhs
                                     , pat_rhs = rhs
-                                    , pat_ext = (grhs_ty, initial_ticks}))) = do
+                                    , pat_ext = (grhs_ty, initial_ticks)}))) = do
 
   let simplePatId = isSimplePat lhs
 
@@ -327,7 +327,7 @@ addTickLHsBind (L pos (pat@(PatBind { pat_lhs = lhs
           (zipWith mbCons patvar_ticks
                           (initial_patvar_tickss ++ repeat []))
 
-    return $ L pos $ pat' { pat_ext = (ghhs_ty, (rhs_ticks, patvar_tickss)) }
+    return $ L pos $ pat' { pat_ext = (grhs_ty, (rhs_ticks, patvar_tickss)) }
 
 -- Only internal stuff, not from source, uses VarBind, so we ignore it.
 addTickLHsBind var_bind@(L _ (VarBind {})) = return var_bind



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e6d281e3595eaee513094a6c5d996337b432e380

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e6d281e3595eaee513094a6c5d996337b432e380
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20241004/c7927cbe/attachment-0001.html>


More information about the ghc-commits mailing list