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