add INLINE pragma
authorRoss Paterson <ross@soi.city.ac.uk>
Thu, 16 Feb 2017 10:54:22 +0000 (10:54 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Thu, 16 Feb 2017 10:54:22 +0000 (10:54 +0000)
Control/Applicative/Lift.hs

index 1ce3053..8d35e28 100644 (file)
@@ -127,6 +127,7 @@ mapLift f (Other e) = Other (f e)
 elimLift :: (a -> r) -> (f a -> r) -> Lift f a -> r
 elimLift f _ (Pure x) = f x
 elimLift _ g (Other e) = g e
+{-# INLINE elimLift #-}
 
 -- | An applicative functor that collects a monoid (e.g. lists) of errors.
 -- A sequence of computations fails if any of its components do, but