getCurrentRef :: IO (Maybe String)
getCurrentRef = do
    item <- getItem "current"
    return $ liftM ref $ item

-- Change the "current" doc ref to newRef
getCurrentRef :: IO (Maybe String)
getCurrentRef = do
    item <- getItem "current"
    return $ liftM ref $ item

-- Change the "current" doc ref to newRef
getCurrentRef = do
    item <- getItem "current"
    return $ liftM ref $ item

-- Change the "current" doc ref to newRef