{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} module Ormolu.Printer.Meat.Declaration.Default ( p_defaultDecl, ) where import GHC import Ormolu.Printer.Combinators import Ormolu.Printer.Meat.Type p_defaultDecl :: DefaultDecl GhcPs -> R () p_defaultDecl :: DefaultDecl GhcPs -> R () p_defaultDecl = \case DefaultDecl XCDefaultDecl GhcPs NoExtField [LHsType GhcPs] ts -> do Text -> R () txt Text "default" R () breakpoint R () -> R () inci (R () -> R ()) -> (R () -> R ()) -> R () -> R () forall b c a. (b -> c) -> (a -> b) -> a -> c . BracketStyle -> R () -> R () parens BracketStyle N (R () -> R ()) -> (R () -> R ()) -> R () -> R () forall b c a. (b -> c) -> (a -> b) -> a -> c . R () -> R () sitcc (R () -> R ()) -> R () -> R () forall a b. (a -> b) -> a -> b $ R () -> (LHsType GhcPs -> R ()) -> [LHsType GhcPs] -> R () forall a. R () -> (a -> R ()) -> [a] -> R () sep (R () comma R () -> R () -> R () forall (m :: * -> *) a b. Monad m => m a -> m b -> m b >> R () breakpoint) (R () -> R () sitcc (R () -> R ()) -> (LHsType GhcPs -> R ()) -> LHsType GhcPs -> R () forall b c a. (b -> c) -> (a -> b) -> a -> c . (HsType GhcPs -> R ()) -> LHsType GhcPs -> R () forall a. (a -> R ()) -> Located a -> R () located' HsType GhcPs -> R () p_hsType) [LHsType GhcPs] ts XDefaultDecl XXDefaultDecl GhcPs x -> NoExtCon -> R () forall a. NoExtCon -> a noExtCon NoExtCon XXDefaultDecl GhcPs x