module ShellCheck.Formatter.Quiet (format) where
import ShellCheck.Interface
import ShellCheck.Formatter.Format
import Control.Monad
import Data.IORef
import System.Exit
format :: FormatterOptions -> IO Formatter
format :: FormatterOptions -> IO Formatter
format FormatterOptions
options =
forall (m :: * -> *) a. Monad m => a -> m a
return Formatter {
header :: IO ()
header = forall (m :: * -> *) a. Monad m => a -> m a
return (),
footer :: IO ()
footer = forall (m :: * -> *) a. Monad m => a -> m a
return (),
onFailure :: FilePath -> FilePath -> IO ()
onFailure = \ FilePath
_ FilePath
_ -> forall a. IO a
exitFailure,
onResult :: CheckResult -> SystemInterface IO -> IO ()
onResult = \ CheckResult
result SystemInterface IO
_ -> forall (f :: * -> *). Applicative f => Bool -> f () -> f ()
unless (forall (t :: * -> *) a. Foldable t => t a -> Bool
null forall a b. (a -> b) -> a -> b
$ CheckResult -> [PositionedComment]
crComments CheckResult
result) forall a. IO a
exitFailure
}