fourmolu-0.2.0.0: src/Ormolu/Printer/Meat/Declaration/Default.hs

{-# 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 = \case
  DefaultDecl NoExtField ts -> do
    txt "default"
    breakpoint
    inci . parens N $
      sep commaDel (sitcc . located' p_hsType) ts
  XDefaultDecl x -> noExtCon x