getPoint :: Config -> IO Document
getPoint cfg = do
  Right (Just doc) <- cfgAccess cfg $ findOne
    (select [] $ cfgPointsColl cfg) { sort = ["date_ts" =: (-1 :: Int)] }
  return doc
getPoint :: Config -> IO Document
getPoint cfg = do
  Right (Just doc) <- cfgAccess cfg $ findOne
    (select [] $ cfgPointsColl cfg) { sort = ["date_ts" =: (-1 :: Int)] }
  return doc
getPoint cfg = do
  Right (Just doc) <- cfgAccess cfg $ findOne
    (select [] $ cfgPointsColl cfg) { sort = ["date_ts" =: (-1 :: Int)] }
  return doc