bookhound-0.1.12.0: src/Bookhound/Utils/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