isPasswordHasNumber :: [Char] -> Either.Either [Char] [Char]
isPasswordHasNumber pwd =
  if any isNumber pwd
     then (Right pwd)
     else (Left "password doesn't contain number")
isPasswordHasNumber :: [Char] -> Either.Either [Char] [Char]
isPasswordHasNumber pwd =
  if any isNumber pwd
     then (Right pwd)
     else (Left "password doesn't contain number")
isPasswordHasNumber pwd =
  if any isNumber pwd
     then (Right pwd)
     else (Left "password doesn't contain number")