module HIndent.Ast.Declaration.Warning.Kind
  ( Kind(..)
  ) where

import HIndent.Ast.NodeComments
import {-# SOURCE #-} HIndent.Pretty
import HIndent.Pretty.Combinators
import HIndent.Pretty.NodeComments

data Kind
  = Warning
  | Deprecated

instance CommentExtraction Kind where
  nodeComments :: Kind -> NodeComments
nodeComments Kind
_ = [LEpaComment] -> [LEpaComment] -> [LEpaComment] -> NodeComments
NodeComments [] [] []

instance Pretty Kind where
  pretty' :: Kind -> Printer ()
pretty' Kind
Warning = HasCallStack => String -> Printer ()
String -> Printer ()
string String
"WARNING"
  pretty' Kind
Deprecated = HasCallStack => String -> Printer ()
String -> Printer ()
string String
"DEPRECATED"