hw-mquery-0.1.0.0: src/HaskellWorks/Data/ToBool.hs

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