@@ -71,7 +71,7 @@ parseNumPart =
71 parseSpace
71 parseSpace
73 parseDecimalNum = do
73 parseDecimalNum = do
74− pref <- option mempty $ (mempty <$ char '+') <|> ("-" <$ char '-')
74+ pref <- option mempty $ (mempty <$ char '+') <|> ("\x2212" <$ char '-')
75 basenum <- (pref <>) . T.pack
75 basenum <- (pref <>) . T.pack
76 <$> many1 (satisfy (\c -> isDigit c || c == '.'))
76 <$> many1 (satisfy (\c -> isDigit c || c == '.'))
77 uncertainty <- option mempty $ T.pack <$> parseParens
77 uncertainty <- option mempty $ T.pack <$> parseParens