{-# LANGUAGE DeriveDataTypeable #-}

-- | A newtype around a list of Strings which represent the usernames
--   to watch. This is all to avoid an orphan instance of Configured
--   for [String] if we had defined one in e.g. OptionalConfiguration.
--
module Usernames ( Usernames(..) )
where

-- DC is needed only for the DCT.Configured instance of String.
import qualified Data.Configurator as DC()
import qualified Data.Configurator.Types as DCT
import Data.Data ( Data )
import System.Console.CmdArgs.Default ( Default(..) )
import Data.Typeable ( Typeable )


-- | Wrapper around a list of strings (usernames).
--
newtype Usernames =
  Usernames { get_usernames :: [String] }
    deriving (Data, Show, Typeable)


instance Default Usernames where
  -- | The default list of usernames is empty.
  --
  def = Usernames []



instance DCT.Configured Usernames where
  -- | This allows us to read a 'Usernames' object out of a
  --   Configurator config file. By default Configurator wouldn't know
  --   what to do, so we have to tell it that we expect a list, and if
  --   that list has strings in it, we can apply the Usernames
  --   constructor to it.
  convert (DCT.List xs) =
    fmap Usernames (mapM convert_string xs)
    where
      convert_string :: DCT.Value -> Maybe String
      convert_string = DCT.convert

  convert _ = Nothing