loginOK :: J.User -> H ()
loginOK user = do
  jwt <- with jwt $ J.jwtFromUser user
  writeJSON $ object [ "token" .= jwt ]
loginOK :: J.User -> H ()
loginOK user = do
  jwt <- with jwt $ J.jwtFromUser user
  writeJSON $ object [ "token" .= jwt ]
loginOK user = do
  jwt <- with jwt $ J.jwtFromUser user
  writeJSON $ object [ "token" .= jwt ]