module Development.Shake.Check ( checkExecutable
, pandoc
, autoconf
, patsFilter
) where
import Control.Monad.IO.Class
import Data.Maybe (isJust)
import System.Directory (findExecutable)
checkExecutable :: (MonadIO m) => String -> m Bool
checkExecutable = fmap isJust . liftIO . findExecutable
pandoc :: (MonadIO m) => m Bool
pandoc = checkExecutable "pandoc"
autoconf :: (MonadIO m) => m Bool
autoconf = checkExecutable "autoconf"
patsFilter :: (MonadIO m) => m Bool
patsFilter = checkExecutable "pats-filter"