interface Language.Haskell.Lexer where {

{-# NEED #-}
instance Ix.Ix Data.Char.GeneralCategory;

{-# NEED #-}
instance NHC.FFI.Storable NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Bounded NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Bounded Data.Char.GeneralCategory;

{-# NEED #-}
instance Prelude.Functor NHC.Internal.IO;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Fractional (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.RealFrac (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Num NHC.FFI.CInt;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Num (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Real NHC.FFI.CInt;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Real (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Enum NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Enum Data.Char.GeneralCategory;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Enum (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Read NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Read Data.Char.GeneralCategory;

{-# NEED #-}
instance (Prelude.Read a,Prelude.Integral a) => Prelude.Read (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Integral NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Ord NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Ord Data.Char.GeneralCategory;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Ord (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Ord Language.Haskell.Syntax.SrcLoc;

{-# NEED #-}
instance Prelude.Ord Language.Haskell.ParseMonad.LexContext;

{-# NEED #-}
instance Prelude.Eq Token;

{-# NEED #-}
instance Prelude.Eq NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Eq Data.Char.GeneralCategory;

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Eq (Ratio.Ratio a);

{-# NEED #-}
instance Prelude.Eq Language.Haskell.Syntax.SrcLoc;

{-# NEED #-}
instance Prelude.Eq Language.Haskell.ParseMonad.LexContext;

{-# NEED #-}
instance Prelude.Show Token;

{-# NEED #-}
instance Prelude.Show NHC.FFI.CInt;

{-# NEED #-}
instance Prelude.Show Data.Char.GeneralCategory;

{-# NEED #-}
instance (Prelude.Show a) => Prelude.Show (NHC.Internal.IO a);

{-# NEED #-}
instance (Prelude.Integral a) => Prelude.Show (Ratio.Ratio a);

{-# NEED #-}
instance (Prelude.Show a) => Prelude.Show (Language.Haskell.ParseMonad.ParseStatus a);

{-# NEED #-}
instance Prelude.Show Language.Haskell.Syntax.SrcLoc;

{-# NEED #-}
instance Prelude.Show Language.Haskell.ParseMonad.LexContext;

{-# NEED #-}
instance Prelude.Monad NHC.Internal.IO;

{-# NEED #-}
instance Prelude.Monad Language.Haskell.ParseMonad.P;

{-# NEED #-}
instance Prelude.Monad (Language.Haskell.ParseMonad.Lex a);
interface NHC.FFI
{-# NEED CInt #-}
newtype {-#  #-} CInt;
interface Data.Char
{-# NEED GeneralCategory #-}
data GeneralCategory;
interface NHC.Internal
{-# NEED IO #-}
newtype {-#  #-} IO a;

{-# NEED World #-}
data World;
interface Language.Haskell.ParseMonad
{-# NEED Lex #-}
newtype {-#  #-} Lex a b;
interface ! Language.Haskell.Lexer
{-# NEED lexer #-}
lexer{-# 0 #-}::((Token -> (Language.Haskell.ParseMonad.P a)) -> (Language.Haskell.ParseMonad.P a));
interface Language.Haskell.ParseMonad
{-# NEED P #-}
newtype {-#  #-} P a;

{-# NEED ParseStatus #-}
data ParseStatus a;

{-# NEED ParseMode #-}
data ParseMode;

{-# NEED ParseState #-}
type {-# 1 #-} ParseState = [LexContext];

{-# NEED LexContext #-}
data LexContext;
interface Language.Haskell.Syntax
{-# NEED SrcLoc #-}
data SrcLoc;
interface ! Language.Haskell.Lexer
{-# NEED {Token VarId QVarId ConId QConId VarSym ConSym QVarSym QConSym IntTok FloatTok Character StringTok LeftParen RightParen SemiColon LeftCurly RightCurly VRightCurly LeftSquare RightSquare Comma Underscore BackQuote DotDot Colon DoubleColon Equals Backslash Bar LeftArrow RightArrow At Tilde DoubleArrow Minus Exclamation KW_Case KW_Class KW_Data KW_Default KW_Deriving KW_Do KW_Else KW_Foreign KW_If KW_Import KW_In KW_Infix KW_InfixL KW_InfixR KW_Instance KW_Let KW_Module KW_NewType KW_Of KW_Then KW_Type KW_Where KW_As KW_Export KW_Hiding KW_Qualified KW_Safe KW_Unsafe EOF} #-}
data Token
  = VarId Prelude.String
  | QVarId (Prelude.String,Prelude.String)
  | ConId Prelude.String
  | QConId (Prelude.String,Prelude.String)
  | VarSym Prelude.String
  | ConSym Prelude.String
  | QVarSym (Prelude.String,Prelude.String)
  | QConSym (Prelude.String,Prelude.String)
  | IntTok Prelude.Integer
  | FloatTok Ratio.Rational
  | Character Prelude.Char
  | StringTok Prelude.String
  | LeftParen 
  | RightParen 
  | SemiColon 
  | LeftCurly 
  | RightCurly 
  | VRightCurly 
  | LeftSquare 
  | RightSquare 
  | Comma 
  | Underscore 
  | BackQuote 
  | DotDot 
  | Colon 
  | DoubleColon 
  | Equals 
  | Backslash 
  | Bar 
  | LeftArrow 
  | RightArrow 
  | At 
  | Tilde 
  | DoubleArrow 
  | Minus 
  | Exclamation 
  | KW_Case 
  | KW_Class 
  | KW_Data 
  | KW_Default 
  | KW_Deriving 
  | KW_Do 
  | KW_Else 
  | KW_Foreign 
  | KW_If 
  | KW_Import 
  | KW_In 
  | KW_Infix 
  | KW_InfixL 
  | KW_InfixR 
  | KW_Instance 
  | KW_Let 
  | KW_Module 
  | KW_NewType 
  | KW_Of 
  | KW_Then 
  | KW_Type 
  | KW_Where 
  | KW_As 
  | KW_Export 
  | KW_Hiding 
  | KW_Qualified 
  | KW_Safe 
  | KW_Unsafe 
  | EOF ;
interface Ratio
{-# NEED Rational #-}
type {-# 1 #-} Rational = (Ratio.Ratio Prelude.Integer);

{-# NEED Ratio #-}
data (Prelude.Integral a) => Ratio a;
}