getByUsername username =
  fmap (fromMaybe (persistError "getByUsername" $ "User is not found" ++ show username))
       (getBy (Domain.usernameCata (UniqueUsername . Text.pack) username))
getByUsername username =
  fmap (fromMaybe (persistError "getByUsername" $ "User is not found" ++ show username))
       (getBy (Domain.usernameCata (UniqueUsername . Text.pack) username))
getByUsername username =
  fmap (fromMaybe (persistError "getByUsername" $ "User is not found" ++ show username))
       (getBy (Domain.usernameCata (UniqueUsername . Text.pack) username))