linearize.hs

#!/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"