#!/usr/bin/env -S runhaskell --ghc-arg="-Wall" --ghc-arg="-i lib" import System.Environment (getArgs) import System.Script (syntax) import Text.Filter (xargs) import Text.Filter.Linearize (linearize) main :: IO () main = getArgs >>= cli where cli [inferParagraphs, target] = xargs (pure.linearize (inferParagraphs == "Y")) target cli _ = syntax "[Y|N] TARGET_DIR"