bookhound-0.1.10.0: src/Bookhound/Internal/Applicative.hs

module Bookhound.Internal.Applicative where


extract :: Applicative m => m a1 -> m a2 -> m b -> m b
extract start end inner = start *> inner <* end