aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Hackage/configurator-export-case-alt-dollar-plus.hs

{- ORACLE_TEST pass -}

module M where

import Data.List.NonEmpty (NonEmpty (..), toList)
import Text.PrettyPrint (Doc, ($+$), (<+>))
import qualified Text.PrettyPrint as P

keysToDoc :: NonEmpty (String, Either Int String) -> Doc
keysToDoc l@((_, Right _) :| _) =
  P.vcat . addSep 0 $
    [groupToDoc n g | (n, Right g) <- toList l]
  where
    addSep _ = id
    groupToDoc k g =
      case True of
        True -> P.text k <+> P.lbrace
        False -> P.text k $+$ P.lbrace
        $+$ P.nest 4 (P.text g)
        $+$ P.rbrace