@@ -13,11 +13,10 @@
14-----------------------------------------------------------------------------
14-----------------------------------------------------------------------------
16−{-# LANGUAGE TupleSections, DeriveDataTypeable #-}
16+{-# LANGUAGE TupleSections #-}
18module Language.PureScript.Parser.Lexer
18module Language.PureScript.Parser.Lexer
19 ( PositionedToken(..)
19 ( PositionedToken(..)
22 , TokenParser()
21 , TokenParser()
@@ -75,19 +74,13 @@ import Prelude hiding (lex)
75import Control.Monad (void, guard)
74import Control.Monad (void, guard)
76import Data.Functor.Identity
75import Data.Functor.Identity
78−import qualified Data.Data as D
80import Control.Applicative
77import Control.Applicative
82import Language.PureScript.Parser.State
79import Language.PureScript.Parser.State
80+import Language.PureScript.Comments
84import qualified Text.Parsec as P
82import qualified Text.Parsec as P
85import qualified Text.Parsec.Token as PT
83import qualified Text.Parsec.Token as PT
89− | BlockComment String
90− deriving (Show, Eq, Ord, D.Data, D.Typeable)