pass nan with payload to token

2018-04-09 07:12:47 -07:00
parent 8cd33831a1
commit 554a56fb63
1 changed files with 1 additions and 1 deletions
@@ -124,7 +124,7 @@ parseNanSigned :: AlexAction Lexeme
 parseNanSigned = token $ \(pos, _, s, _) len -> 
    let (sign, slen) = parseSign s in
    let num = readHexFromPrefix (len - 6 - slen) $ LBSUtf8.drop (6 + slen) s in
-    Lexeme pos $ TFloatLit $ sign $ fromIntegral num
+    Lexeme pos $ TFloatLit $ sign $ nanWithPayload $ fromIntegral num

 parseDecimalSignedInt :: AlexAction Lexeme
 parseDecimalSignedInt = token $ \(pos, _, s, _) len ->