addNewBlob :: String -> IO ()
addNewBlob newBlob = do
    Just current <- getCurrentRef
    let item = Item newBlob current
    (doc1, rev1) <- runCouchDB' $ newDoc contas $ toJSON item
    updateCurrent $ show doc1
    return ()
addNewBlob :: String -> IO ()
addNewBlob newBlob = do
    Just current <- getCurrentRef
    let item = Item newBlob current
    (doc1, rev1) <- runCouchDB' $ newDoc contas $ toJSON item
    updateCurrent $ show doc1
    return ()
addNewBlob newBlob = do
    Just current <- getCurrentRef
    let item = Item newBlob current
    (doc1, rev1) <- runCouchDB' $ newDoc contas $ toJSON item
    updateCurrent $ show doc1
    return ()