{-# LANGUAGE OverloadedStrings #-}
module Ormolu.Processing.Common
( OrmoluState (..),
startDisabling,
endDisabling,
)
where
import Data.String (IsString (..))
data OrmoluState
=
OrmoluEnabled
|
OrmoluDisabled
deriving (OrmoluState -> OrmoluState -> Bool
(OrmoluState -> OrmoluState -> Bool)
-> (OrmoluState -> OrmoluState -> Bool) -> Eq OrmoluState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OrmoluState -> OrmoluState -> Bool
$c/= :: OrmoluState -> OrmoluState -> Bool
== :: OrmoluState -> OrmoluState -> Bool
$c== :: OrmoluState -> OrmoluState -> Bool
Eq, Int -> OrmoluState -> ShowS
[OrmoluState] -> ShowS
OrmoluState -> String
(Int -> OrmoluState -> ShowS)
-> (OrmoluState -> String)
-> ([OrmoluState] -> ShowS)
-> Show OrmoluState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OrmoluState] -> ShowS
$cshowList :: [OrmoluState] -> ShowS
show :: OrmoluState -> String
$cshow :: OrmoluState -> String
showsPrec :: Int -> OrmoluState -> ShowS
$cshowsPrec :: Int -> OrmoluState -> ShowS
Show)
startDisabling :: IsString s => s
startDisabling :: s
startDisabling = s
"{- ORMOLU_DISABLE_START"
endDisabling :: IsString s => s
endDisabling :: s
endDisabling = s
"ORMOLU_DISABLE_END -}"