trimSpaces p = do r <- p
                  optional spaceChars
                  return r
trimSpaces p = do r <- p
                  optional spaceChars
                  return r
trimSpaces p = do r <- p
                  optional spaceChars
                  return r