read_either_integer :: String -> Either String Integer
read_either_integer s =
- let msg = "Could not parse XML_File_ID" ++ s ++ " as an integer."
+ let msg = "Could not parse XML_File_ID " ++ s ++ " as an integer."
in
maybeToEither msg (readMaybe s)