Merge pull request #319 from well-typed/missing-inline

Add missing INLINE pragmas
well-typed · May 5, 2020 · a47f004 · a47f004
2 parents 931c3f6 + 568d604
commit a47f004
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 0 deletions.
diff --git a/optics-core/src/Optics/AffineFold.hs b/optics-core/src/Optics/AffineFold.hs
@@ -109,6 +109,7 @@ atraverseOf_
 atraverseOf_ o point f s = case preview o s of
   Just a  -> () <$ f a
   Nothing -> point ()
+{-# INLINE atraverseOf_ #-}
 
 -- | Create an 'AffineFold' from a partial function.
 --

diff --git a/optics-core/src/Optics/IxAffineFold.hs b/optics-core/src/Optics/IxAffineFold.hs
@@ -110,6 +110,7 @@ iatraverseOf_
 iatraverseOf_ o point f s = case ipreview o s of
   Just (i, a) -> () <$ f i a
   Nothing     -> point ()
+{-# INLINE iatraverseOf_ #-}
 
 -- | Create an 'IxAffineFold' from a partial function.
 iafolding :: (s -> Maybe (i, a)) -> IxAffineFold i s a

diff --git a/optics-core/src/Optics/IxAffineTraversal.hs b/optics-core/src/Optics/IxAffineTraversal.hs
@@ -127,6 +127,7 @@ unsafeFilteredBy p = iatraversalVL $ \point f s -> case preview p s of
 -- 6
 ignored :: IxAffineTraversal i s s a b
 ignored = iatraversalVL $ \point _ -> point
+{-# INLINE ignored #-}
 
 -- $setup
 -- >>> import Optics.Core