app/Main.hs

   1 module Main where
   2
   3 import Data.ByteString qualified as BS
   4 import Data.Text qualified as Text
   5 import Debug.Pretty.Simple (pTraceShowM)
   6 import Options.Applicative qualified as Opt
   7 import Paths_worksheet qualified as Self
   8 import Relude
   9 import System.FilePath.Posix qualified as File
  10 import Text.Blaze
  11 import Text.Blaze.Html5 qualified as H
  12 import Text.Blaze.Html5.Attributes qualified as HA
  13 import Text.Blaze.Renderer.Utf8 qualified as Blaze
  14
  15 newtype Options = Options
  16   { optionInputs :: [FilePath]
  17   }
  18
  19 options :: Opt.Parser Options
  20 options =
  21   Options
  22     <$> many (Opt.argument Opt.str (Opt.metavar "SOURCE..."))
  23
  24 main :: IO ()
  25 main = do
  26   Options{..} <- Opt.execParser opts
  27   forM_ optionInputs \inputFilePath -> do
  28   where
  29     opts =
  30       Opt.info
  31         (options <**> Opt.helper)
  32         ( Opt.fullDesc
  33             <> Opt.progDesc "Generate a worksheet"
  34             <> Opt.header "worksheet - a worksheet generator"
  35         )