natskell-1.0.0.1: internal/Lib/CallOption.hs

module Lib.CallOption where

type CallOption a = (a -> a)

applyCallOptions :: [CallOption a] -> a -> a
applyCallOptions options value = foldl (flip ($)) value options