{-# LANGUAGE FlexibleInstances #-}
module HSH.Helpers (
  failIf
  , module HSH.Helpers.Instances
  , module HSH.Helpers.UnixUsers
  , module HSH.Helpers.FileManip
) where

import HSH.Helpers.Instances
import HSH.Helpers.UnixUsers
import HSH.Helpers.FileManip

failIf ioP m = do
  p <- ioP
  if p then fail m else return ()