{-# LANGUAGE LambdaCase #-} module Ormolu.Printer.Meat.Declaration.Splice ( p_spliceDecl, ) where import GHC.Hs.Decls import GHC.Hs.Extension import Ormolu.Printer.Combinators import Ormolu.Printer.Meat.Declaration.Value (p_hsSplice) p_spliceDecl :: SpliceDecl GhcPs -> R () p_spliceDecl :: SpliceDecl GhcPs -> R () p_spliceDecl = \case SpliceDecl XSpliceDecl GhcPs NoExtField Located (HsSplice GhcPs) splice SpliceExplicitFlag _explicit -> Located (HsSplice GhcPs) -> (HsSplice GhcPs -> R ()) -> R () forall a. Located a -> (a -> R ()) -> R () located Located (HsSplice GhcPs) splice HsSplice GhcPs -> R () p_hsSplice