main :: IO ()
main = do
  cliOptions <- (getRecord "Test program" :: IO CliOptions)

  let txt = unHelpful (input cliOptions)
      dict = fromMaybe "es" $ unHelpful (dictionary cliOptions)
      ratio' = fromMaybe 20 $ unHelpful (ratio cliOptions)
      showKeywords = fromMaybe False $ unHelpful (keywords cliOptions)

  let result = summarize dict ratio' txt
  mapM_ TIO.putStrLn (summarySentences result)
  when showKeywords $
    mapM_ TIO.putStrLn (summaryKeywords result)

  pure ()
main :: IO ()
main = do
  cliOptions <- (getRecord "Test program" :: IO CliOptions)

  let txt = unHelpful (input cliOptions)
      dict = fromMaybe "es" $ unHelpful (dictionary cliOptions)
      ratio' = fromMaybe 20 $ unHelpful (ratio cliOptions)
      showKeywords = fromMaybe False $ unHelpful (keywords cliOptions)

  let result = summarize dict ratio' txt
  mapM_ TIO.putStrLn (summarySentences result)
  when showKeywords $
    mapM_ TIO.putStrLn (summaryKeywords result)

  pure ()
main = do
  cliOptions <- (getRecord "Test program" :: IO CliOptions)

  let txt = unHelpful (input cliOptions)
      dict = fromMaybe "es" $ unHelpful (dictionary cliOptions)
      ratio' = fromMaybe 20 $ unHelpful (ratio cliOptions)
      showKeywords = fromMaybe False $ unHelpful (keywords cliOptions)

  let result = summarize dict ratio' txt
  mapM_ TIO.putStrLn (summarySentences result)
  when showKeywords $
    mapM_ TIO.putStrLn (summaryKeywords result)

  pure ()