stack-clean-old-0.4: src/Types.hs

module Types (
  Deletion (..),
  isDelete
  )
where

data Deletion = Dryrun | Delete
  deriving Eq

isDelete :: Deletion -> Bool
isDelete = (== Delete)