module Propellor.Types.Empty where

import qualified Data.Map as M
import qualified Data.Set as S

class Empty t where
        isEmpty :: t -> Bool

instance Empty [a] where
        isEmpty = null

instance Empty (M.Map k v) where
        isEmpty = M.null

instance Empty (S.Set v) where
        isEmpty = S.null