Temporarily ignore lexer errors (#53)

Author: chameco

src/Lichen/Lexer/C.hs

@@ -5,15 +5,15 @@ module Lichen.Lexer.C where
 import GHC.Generics (Generic)
 
 import Control.Monad
-import Control.Monad.Except
+--import Control.Monad.Except
 
 import Data.Hashable
 
 import Text.Megaparsec
 import Text.Megaparsec.ByteString
 import qualified Text.Megaparsec.Lexer as L
 
-import Lichen.Error
+--import Lichen.Error
 import Lichen.Lexer
 
 data Tok = Auto | Break | Case | Char | Const | Continue | Default | Do
@@ -141,5 +141,6 @@ onetoken = wrap (reserved "auto") Auto
 
 lex :: Lexer Tok
 lex p d = case runParser (many (sc *> onetoken <* sc)) p d of
-              Left e -> throwError $ LexError e
+              --Left e -> throwError $ LexError e
+              Left _ -> return []
               Right t -> return t