userKey username =
  fmap (fmap entityKey) $ getBy (UniqueUsername $ Domain.usernameCata Text.pack username)
userKey username =
  fmap (fmap entityKey) $ getBy (UniqueUsername $ Domain.usernameCata Text.pack username)
userKey username =
  fmap (fmap entityKey) $ getBy (UniqueUsername $ Domain.usernameCata Text.pack username)