-- Copyright (c) Facebook, Inc. and its affiliates.
--
-- This source code is licensed under the MIT license found in the
-- LICENSE file in the root directory of this source tree.
--
{-# LANGUAGE RecordWildCards #-}
module Main (main) where

import Control.Monad
import Data.Default
import Retrie
import Retrie.Debug
import Retrie.Options
import Retrie.Run

main :: IO ()
main = do
  opts@Options{..} <- parseOptions def
  doRoundtrips fixityEnv targetDir roundtrips
  unless (null rewrites) $ do
    when (verbosity > Silent) $ do
      putStrLn "Adding:"
      mapM_ (putStrLn . ppRewrite) rewrites
    execute opts $ apply rewrites