Inline lastS

turion · Nov 29, 2024 · 19b1a23 · 19b1a23
1 parent 11fabe5
commit 19b1a23
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/automaton/src/Data/Automaton.hs b/automaton/src/Data/Automaton.hs
@@ -535,3 +535,4 @@ count = feedback 0 $! arr (\(_, n) -> let n' = n + 1 in (n', n'))
 -- | Remembers the last 'Just' value, defaulting to the given initialisation value.
 lastS :: (Monad m) => a -> Automaton m (Maybe a) a
 lastS a = arr Last >>> mappendS >>> arr (getLast >>> fromMaybe a)
+{-# INLINE lastS #-}