Domain management at its simplest.

Domains.hs

import Data.List

data Domain = Domain { domain :: String, dns :: DNS } deriving (Show)
data Service = Service { name :: String, servtype :: ServType, description :: String } deriving (Show)

data ServType = Heroku | GitHubPages | Redirect deriving (Show, Eq)
data DNS = DNS { dprovider :: String, dname :: String, services :: [Service] } deriving (Show)

-- presentation

listZoneOf q = nub $ map (dname . dns) $ filter (\x -> dprovider (dns x) == q) domains
listType t = map description $ filter (\x -> servtype x == t) $ foldl (\x y -> x ++ (services . dns) y) [] domains

domains = []