34 lines
706 B
Haskell
34 lines
706 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
|
|
module Language.Haskell.Brittany.Internal.Layouters.Expr
|
|
( layoutExpr
|
|
, litBriDoc
|
|
, overLitValBriDoc
|
|
)
|
|
where
|
|
|
|
|
|
|
|
#include "prelude.inc"
|
|
|
|
import Language.Haskell.Brittany.Internal.Types
|
|
import Language.Haskell.Brittany.Internal.LayouterBasics
|
|
|
|
import GHC ( runGhc, GenLocated(L), moduleNameString )
|
|
import HsSyn
|
|
import Name
|
|
|
|
|
|
|
|
layoutExpr :: ToBriDoc HsExpr
|
|
|
|
-- layoutStmt :: ToBriDoc' (StmtLR GhcPs GhcPs (LHsExpr GhcPs))
|
|
|
|
#if MIN_VERSION_ghc(8,4,0) /* ghc-8.4 */
|
|
litBriDoc :: HsLit GhcPs -> BriDocFInt
|
|
#else /* ghc-8.0 && ghc-8.2 */
|
|
litBriDoc :: HsLit -> BriDocFInt
|
|
#endif
|
|
|
|
overLitValBriDoc :: OverLitVal -> BriDocFInt
|