retrie-1.2.0.0: bin/Main.hs

-- 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 Fixity
import qualified GHC.Paths as GHC.Paths
import Retrie
import Retrie.Debug
import Retrie.Options
import Retrie.Run

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