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

{-# LANGUAGE RecordWildCards #-}

module HIndent.Ast.Declaration.Rule.Collection
  ( RuleCollection
  , mkRuleCollection
  ) where

import {-# SOURCE #-} HIndent.Ast.Declaration.Rule
import HIndent.Ast.NodeComments
import HIndent.Ast.WithComments
import qualified HIndent.GhcLibParserWrapper.GHC.Hs as GHC
import {-# SOURCE #-} HIndent.Pretty
import HIndent.Pretty.Combinators
import HIndent.Pretty.NodeComments

newtype RuleCollection =
  RuleCollection [WithComments RuleDeclaration]

instance CommentExtraction RuleCollection where
  nodeComments RuleCollection {} = NodeComments [] [] []

instance Pretty RuleCollection where
  pretty' (RuleCollection xs) =
    lined $ string "{-# RULES" : fmap pretty xs ++ [string " #-}"]

mkRuleCollection :: GHC.RuleDecls GHC.GhcPs -> RuleCollection
mkRuleCollection GHC.HsRules {..} =
  RuleCollection $ fmap (fmap mkRuleDeclaration . fromGenLocated) rds_rules