1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
import qualified Aws
import qualified Aws.SimpleDb as Sdb
import qualified Data.Text as T
import qualified Data.Text.IO as T
main :: IO ()
main = do
{- Load configuration -}
cfg <- Aws.baseConfiguration
let sdbCfg = Aws.defServiceConfig
putStrLn "Making request..."
{- Make request -}
let req = Sdb.listDomains { Sdb.ldMaxNumberOfDomains = Just 10 }
Sdb.ListDomainsResponse names _token <- Aws.simpleAws cfg sdbCfg req
{- Analyze response -}
putStrLn "First 10 domains:"
mapM_ (T.putStrLn . T.cons '\t') names
|
