tagless-final-parsing/initial-encoding/app/Main.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Data.Text (Text)
import Data.Text.IO (hGetContents)
import Options.Applicative ((<**>))
import qualified Options.Applicative as O
import Parser.Initial
import Parser.Utils
import System.Environment (getArgs)
import System.IO (IOMode (ReadMode), openFile)
import qualified Text.Megaparsec as M

-- ========================================
-- Arguments
-- ========================================

data Args = Args {argsFileName :: !FilePath, argsMethod :: !Text}

args :: O.Parser Args
args =
  Args
    <$> O.strArgument
      ( O.metavar "FILENAME" <> O.help "The file we want to parse."
      )
    <*> O.strOption
      ( O.short 'm'
          <> O.long "method"
          <> O.metavar "METHOD"
          <> O.showDefault
          <> O.value "naive"
          <> O.help
            "The parse strategy we want to try. Should be one of 'naive', \
            \'single', 'strict', or 'gadt'."
      )

-- ========================================
-- Main
-- ========================================

run :: Args -> IO ()
run args = do
  handle <- openFile (argsFileName args) ReadMode
  input <- hGetContents handle
  case argsMethod args of
    "naive" -> runExpr parseNaive input
    "single" -> runExpr parseSingle input
    "strict" -> runExpr parseStrict input
    "gadt" -> case runParser parseGadt input of
      Left e -> print e
      Right (Wrapper a) -> print $ eval a
    _ -> error "Encountered an invalid parsing strategy."
  where
    runExpr p input = either print print (runParser p input)

main :: IO ()
main = run =<< O.execParser opts
  where
    opts =
      O.info
        (args <**> O.helper)
        ( O.fullDesc
            <> O.progDesc "Different parsing strategies using initial encoding"
            <> O.header "Initial encoding parsing"
        )