data User = User { username :: String } deriving (Show, Read)

getUsers :: Pipe -> IO [Document]
getUsers pipe = access pipe master "mydb" (find (select [] "users") >>= rest)

server :: Pipe -> ScottyM()
server pipe =
    get "/" $ do
        res <- liftIO $ getUsers pipe
        -- json $ T.pack $ show res