import qualified OptionalConfiguration as OC (
OptionalConfiguration(..) )
import Hosts ( Hosts(..) )
import qualified OptionalConfiguration as OC (
OptionalConfiguration(..) )
import Hosts ( Hosts(..) )
- all_hosts =
- Hosts $ (get_hosts $ hosts cfg) ++ (get_hosts $ OC.hosts opt_cfg)
- all_lists =
- Lists $ (get_lists $ lists cfg) ++ (get_lists $ OC.lists opt_cfg)
+ all_hosts = (hosts cfg) `mappend` (OC.hosts opt_cfg)
+ all_lists = (lists cfg) `mappend` (OC.lists opt_cfg)