main :: IO ()
main = do
    CO inputDir outputFile <- execParser opts
    let output = maybe (stdoutC :: Consumer String (ResourceT IO) ())
                       sinkFile
                       outputFile
    absInput <- canonicalizePath inputDir
    runResourceT $  walkCorpus absInput
                 $= toLines
                 $$ mapC show
                 =$ unlinesC
                 =$ output
main :: IO ()
main = do
    CO inputDir outputFile <- execParser opts
    let output = maybe (stdoutC :: Consumer String (ResourceT IO) ())
                       sinkFile
                       outputFile
    absInput <- canonicalizePath inputDir
    runResourceT $  walkCorpus absInput
                 $= toLines
                 $$ mapC show
                 =$ unlinesC
                 =$ output
main = do
    CO inputDir outputFile <- execParser opts
    let output = maybe (stdoutC :: Consumer String (ResourceT IO) ())
                       sinkFile
                       outputFile
    absInput <- canonicalizePath inputDir
    runResourceT $  walkCorpus absInput
                 $= toLines
                 $$ mapC show
                 =$ unlinesC
                 =$ output