---
--- Generalised accessors
---

uuids :: Int -> AppM [String]
uuids n = do
    url <- viewA agonCouchBaseURL >>= return . (++ ("_uuids?count=" ++ show n))
    req <- buildReq url "GET" noBody
    httpJSON req >>= return . unUUIDs
    where unUUIDs (UUIDs sx) = sx
uuids :: Int -> AppM [String]
uuids n = do
    url <- viewA agonCouchBaseURL >>= return . (++ ("_uuids?count=" ++ show n))
    req <- buildReq url "GET" noBody
    httpJSON req >>= return . unUUIDs
    where unUUIDs (UUIDs sx) = sx
uuids n = do
    url <- viewA agonCouchBaseURL >>= return . (++ ("_uuids?count=" ++ show n))
    req <- buildReq url "GET" noBody
    httpJSON req >>= return . unUUIDs
    where unUUIDs (UUIDs sx) = sx