module HaskellWorks.Data.ToBool where

import qualified Data.DList as DL

class ToBool a where
  toBool :: a -> Bool

instance ToBool Bool where
  toBool = id

instance ToBool [a] where
  toBool (_:_)  = True
  toBool    _   = False

instance ToBool (DL.DList a) where
  toBool = toBool . DL.toList