forbid special nan values for non-script contexts

2022-06-07 20:28:02 -06:00
parent 83fea36c02
commit 32357d68fe
2 changed files with 60 additions and 42 deletions
@@ -5,6 +5,8 @@ module Language.Wasm.Lexer (
    Lexeme(..),
    Token(..),
    AlexPosn(..),
+    FloatRep(..),
+    NaN(..),
    scanner,
    asFloat,
    asDouble,
@@ -22,6 +24,8 @@ import Data.List (isPrefixOf)
 import Text.Read (readEither)
 import Data.Bits
 import Numeric (showHex)
+import Control.DeepSeq (NFData)
+import GHC.Generics (Generic)

 }