optSign :: CharParser st Bool
optSign = option False $ fmap (== '-') (oneOf "+-")
optSign :: CharParser st Bool
optSign = option False $ fmap (== '-') (oneOf "+-")
optSign = option False $ fmap (== '-') (oneOf "+-")