feat(parser): add Generic and NFData to parser support types

Extends PR #122 implementation to parser support modules:

- Token.hs: Add Generic/NFData to CommentAnnotation and Token types
- SrcLocation.hs: Add Generic/NFData to TokenPosn type
- ParseError.hs: Add Generic/NFData to ParseError type

All modules now include required language extensions and imports
for complete Generic and NFData support across the parser.

Author: quintenkasteel

src/Language/JavaScript/Parser/ParseError.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric, DeriveAnyClass #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      : Language.JavaScript.ParseError
@@ -17,6 +18,8 @@ module Language.JavaScript.Parser.ParseError
 
 --import Language.JavaScript.Parser.Pretty
 -- import Control.Monad.Error.Class -- Control.Monad.Trans.Except
+import Control.DeepSeq (NFData)
+import GHC.Generics (Generic)
 import Language.JavaScript.Parser.Lexer
 import Language.JavaScript.Parser.SrcLocation (TokenPosn)
 -- import Language.JavaScript.Parser.Token (Token)
@@ -29,7 +32,7 @@ data ParseError
      -- ^ An error from the lexer. Character found where it should not be.
    | StrError String
      -- ^ A generic error containing a string message. No source location.
-   deriving (Eq, {- Ord,-} Show)
+   deriving (Eq, Generic, NFData, {- Ord,-} Show)
 
 class Error a where
     -- | Creates an exception without a message.

src/Language/JavaScript/Parser/SrcLocation.hs

@@ -1,10 +1,12 @@
-{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveDataTypeable, DeriveGeneric, DeriveAnyClass #-}
 module Language.JavaScript.Parser.SrcLocation (
   TokenPosn(..)
   , tokenPosnEmpty
   ) where
 
+import Control.DeepSeq (NFData)
 import Data.Data
+import GHC.Generics (Generic)
 
 -- | `TokenPosn' records the location of a token in the input text.  It has three
 -- fields: the address (number of characters preceding the token), line number
@@ -14,7 +16,7 @@ import Data.Data
 data TokenPosn = TokenPn !Int -- address (number of characters preceding the token)
                          !Int -- line number
                          !Int -- column
-        deriving (Eq,Show, Read, Data, Typeable)
+        deriving (Eq, Generic, NFData, Show, Read, Data, Typeable)
 
 tokenPosnEmpty :: TokenPosn
 tokenPosnEmpty = TokenPn 0 0 0

src/Language/JavaScript/Parser/Token.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE CPP, DeriveDataTypeable #-}
+{-# LANGUAGE CPP, DeriveDataTypeable, DeriveGeneric, DeriveAnyClass #-}
 -----------------------------------------------------------------------------
 -- |
 -- Module      : Language.Python.Common.Token
@@ -23,14 +23,16 @@ module Language.JavaScript.Parser.Token
     -- TokenClass (..),
     ) where
 
+import Control.DeepSeq (NFData)
 import Data.Data
+import GHC.Generics (Generic)
 import Language.JavaScript.Parser.SrcLocation
 
 data CommentAnnotation
     = CommentA TokenPosn String
     | WhiteSpace TokenPosn String
     | NoComment
-    deriving (Eq, Show, Typeable, Data, Read)
+    deriving (Eq, Generic, NFData, Show, Typeable, Data, Read)
 
 -- | Lexical tokens.
 -- Each may be annotated with any comment occurring between the prior token and this one
@@ -178,7 +180,7 @@ data Token
     | AsToken { tokenSpan :: !TokenPosn, tokenLiteral :: !String, tokenComment :: ![CommentAnnotation]  }
     | TailToken { tokenSpan :: !TokenPosn, tokenComment :: ![CommentAnnotation]  } -- ^ Stuff between last JS and EOF
     | EOFToken { tokenSpan :: !TokenPosn, tokenComment :: ![CommentAnnotation]  }  -- ^ End of file
-    deriving (Eq, Show, Typeable)
+    deriving (Eq, Generic, NFData, Show, Typeable)
 
 
 -- | Produce a string from a token containing detailed information. Mainly intended for debugging.