Merge pull request #19 from restaumatic/traversal-inline

kozak · web-flow · commit d3f69f9b30aa · 2026-05-11T13:58:42.000+02:00
Add INLINABLE to AST traversals — full builds -9%
diff --git a/src/Language/PureScript/AST/Traversals.hs b/src/Language/PureScript/AST/Traversals.hs
@@ -127,6 +127,7 @@ everywhereOnValuesTopDownM
      , Expr -> m Expr
      , Binder -> m Binder
      )
+{-# INLINABLE everywhereOnValuesTopDownM #-}
 everywhereOnValuesTopDownM f g h = (f' <=< f, g' <=< g, h' <=< h)
   where
 
@@ -197,6 +198,7 @@ everywhereOnValuesM
      , Expr -> m Expr
      , Binder -> m Binder
      )
+{-# INLINABLE everywhereOnValuesM #-}
 everywhereOnValuesM f g h = (f', g', h')
   where
 

Original file line number	Diff line number	Diff line change
`@@ -127,6 +127,7 @@ everywhereOnValuesTopDownM`
`127`	`127`	`, Expr -> m Expr`
`128`	`128`	`, Binder -> m Binder`
`129`	`129`	`)`
	`130`	`+{-# INLINABLE everywhereOnValuesTopDownM #-}`
`130`	`131`	`everywhereOnValuesTopDownM f g h = (f' <=< f, g' <=< g, h' <=< h)`
`131`	`132`	`where`
`132`	`133`
`@@ -197,6 +198,7 @@ everywhereOnValuesM`
`197`	`198`	`, Expr -> m Expr`
`198`	`199`	`, Binder -> m Binder`
`199`	`200`	`)`
	`201`	`+{-# INLINABLE everywhereOnValuesM #-}`
`200`	`202`	`everywhereOnValuesM f g h = (f', g', h')`
`201`	`203`	`where`
`202`	`204`