hindent-6.3.0: src/HIndent/Ast/Declaration/Rule/Name.hs

module HIndent.Ast.Declaration.Rule.Name
  ( RuleName
  , mkRuleName
  ) where

import qualified GHC.Data.FastString as GHC
import qualified GHC.Types.Basic as GHC
import {-# SOURCE #-} HIndent.Pretty
import HIndent.Pretty.Combinators
import HIndent.Pretty.NodeComments

newtype RuleName =
  RuleName String
  deriving (Eq, Show)

instance CommentExtraction RuleName where
  nodeComments _ = emptyNodeComments

instance Pretty RuleName where
  pretty' (RuleName name) = doubleQuotes $ string name

mkRuleName :: GHC.RuleName -> RuleName
mkRuleName = RuleName . GHC.unpackFS