Text.Pretty.Simple.Internal.ExprToOutput

Documentation

>>> import Control.Monad.State (State)
>>> :{
let test :: PrinterState -> State PrinterState a -> PrinterState
    test initState state = execState state initState
    testInit :: State PrinterState a -> PrinterState
    testInit = test initPrinterState
:}

newtype LineNum

Newtype around Int to represent a line number. After a newline, the LineNum will increase by 1.

Constructors

LineNum

Fields

• unLineNum :: Int

Instances

Eq LineNum

Methods

(==) :: LineNum -> LineNum -> Bool

(/=) :: LineNum -> LineNum -> Bool

Data LineNum

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> LineNum -> c LineNum

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c LineNum

toConstr :: LineNum -> Constr

dataTypeOf :: LineNum -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c LineNum)

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c LineNum)

gmapT :: (forall b. Data b => b -> b) -> LineNum -> LineNum

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> LineNum -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> LineNum -> r

gmapQ :: (forall d. Data d => d -> u) -> LineNum -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> LineNum -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> LineNum -> m LineNum

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> LineNum -> m LineNum

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> LineNum -> m LineNum

Num LineNum

Methods

(+) :: LineNum -> LineNum -> LineNum

(-) :: LineNum -> LineNum -> LineNum

(*) :: LineNum -> LineNum -> LineNum

negate :: LineNum -> LineNum

abs :: LineNum -> LineNum

signum :: LineNum -> LineNum

fromInteger :: Integer -> LineNum

Ord LineNum

Methods

compare :: LineNum -> LineNum -> Ordering

(<) :: LineNum -> LineNum -> Bool

(<=) :: LineNum -> LineNum -> Bool

(>) :: LineNum -> LineNum -> Bool

(>=) :: LineNum -> LineNum -> Bool

max :: LineNum -> LineNum -> LineNum

min :: LineNum -> LineNum -> LineNum

Read LineNum

Methods

readsPrec :: Int -> ReadS LineNum

readList :: ReadS [LineNum]

readPrec :: ReadPrec LineNum

readListPrec :: ReadPrec [LineNum]

Show LineNum

Methods

showsPrec :: Int -> LineNum -> ShowS

show :: LineNum -> String

showList :: [LineNum] -> ShowS

Generic LineNum

Associated Types

type Rep LineNum :: * -> *

Methods

from :: LineNum -> Rep LineNum x

to :: Rep LineNum x -> LineNum

type Rep LineNum

type Rep LineNum = D1 (MetaData "LineNum" "Text.Pretty.Simple.Internal.ExprToOutput" "pretty-simple-1.0.0.6-3vJ7uo3XxpBFwtEo5JjIqV" True) (C1 (MetaCons "LineNum" PrefixI True) (S1 (MetaSel (Just Symbol "unLineNum") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 Int)))

data PrinterState

Constructors

PrinterState

Fields

• _currLine :: !LineNum
• _nestLevel :: !NestLevel
• _outputList :: !(Seq Output)

Instances

Eq PrinterState

Methods

(==) :: PrinterState -> PrinterState -> Bool

(/=) :: PrinterState -> PrinterState -> Bool

Data PrinterState

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PrinterState -> c PrinterState

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PrinterState

toConstr :: PrinterState -> Constr

dataTypeOf :: PrinterState -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c PrinterState)

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PrinterState)

gmapT :: (forall b. Data b => b -> b) -> PrinterState -> PrinterState

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PrinterState -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PrinterState -> r

gmapQ :: (forall d. Data d => d -> u) -> PrinterState -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> PrinterState -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> PrinterState -> m PrinterState

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PrinterState -> m PrinterState

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PrinterState -> m PrinterState

Show PrinterState

Methods

showsPrec :: Int -> PrinterState -> ShowS

show :: PrinterState -> String

showList :: [PrinterState] -> ShowS

Generic PrinterState

Associated Types

type Rep PrinterState :: * -> *

Methods

from :: PrinterState -> Rep PrinterState x

to :: Rep PrinterState x -> PrinterState

type Rep PrinterState

type Rep PrinterState = D1 (MetaData "PrinterState" "Text.Pretty.Simple.Internal.ExprToOutput" "pretty-simple-1.0.0.6-3vJ7uo3XxpBFwtEo5JjIqV" False) (C1 (MetaCons "PrinterState" PrefixI True) ((:*:) (S1 (MetaSel (Just Symbol "_currLine") SourceUnpack SourceStrict DecidedStrict) (Rec0 LineNum)) ((:*:) (S1 (MetaSel (Just Symbol "_nestLevel") SourceUnpack SourceStrict DecidedStrict) (Rec0 NestLevel)) (S1 (MetaSel (Just Symbol "_outputList") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 (Seq Output))))))

outputList :: Lens' PrinterState (Seq Output)

nestLevel :: Lens' PrinterState NestLevel

currLine :: Lens' PrinterState LineNum

printerState :: LineNum -> NestLevel -> Seq Output -> PrinterState

Smart-constructor for PrinterState.

addOutput :: MonadState PrinterState m => OutputType -> m ()

addOutputs :: MonadState PrinterState m => Seq OutputType -> m ()

initPrinterState :: PrinterState

putSurroundExpr

Arguments

:: MonadState PrinterState m

=> OutputType

-> OutputType

-> CommaSeparated [Expr]

comma separated inner expression.

-> m ()

Print a surrounding expression (like [] or {} or ()).

If the CommaSeparated expressions are empty, just print the start and end markers.

>>> testInit $ putSurroundExpr "[" "]" (CommaSeparated [])
PrinterState {_currLine = LineNum {unLineNum = 0}, _nestLevel = NestLevel {_unNestLevel = -1}, _outputList = fromList [Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputOpenBracket},Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputCloseBracket}]}

If there is only one expression, and it will print out on one line, then just print everything all on one line, with spaces around the expressions.

>>> testInit $ putSurroundExpr "{" "}" (CommaSeparated [[Other "hello"]])
PrinterState {_currLine = LineNum {unLineNum = 0}, _nestLevel = NestLevel {_unNestLevel = -1}, _outputList = fromList [Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputOpenBrace},Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputOther " "},Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputOther "hello"},Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputOther " "},Output {outputNestLevel = NestLevel {_unNestLevel = 0}, outputOutputType = OutputCloseBrace}]}

If there is only one expression, but it will print out on multiple lines, then go to newline and print out on multiple lines.

>>> 1 + 1  -- TODO: Example here.
2

If there are multiple expressions, then first go to a newline. Print out on multiple lines.

>>> 1 + 1  -- TODO: Example here.
2

putCommaSep :: forall m. MonadState PrinterState m => CommaSeparated [Expr] -> m ()

putComma :: MonadState PrinterState m => m ()

howManyLines :: [Expr] -> LineNum

doIndent :: MonadState PrinterState m => m ()

newLine :: MonadState PrinterState m => m ()

newLineAndDoIndent :: MonadState PrinterState m => m ()

putExpression :: MonadState PrinterState m => Expr -> m ()

runPrinterState :: PrinterState -> [Expr] -> PrinterState

runInitPrinterState :: [Expr] -> PrinterState

expressionsToOutputs :: [Expr] -> Seq Output

modificationsExprList :: [Expr] -> [Expr]

A function that performs optimizations and modifications to a list of input Exprs.

An sample of an optimization is removeEmptyInnerCommaSeparatedExprList which removes empty inner lists in a CommaSeparated value.

removeEmptyInnerCommaSeparatedExprList :: [Expr] -> [Expr]

removeEmptyInnerCommaSeparatedExpr :: Expr -> Expr

removeEmptyInnerCommaSeparated :: CommaSeparated [Expr] -> CommaSeparated [Expr]

removeEmptyList :: forall a. [[a]] -> [[a]]

Remove empty lists from a list of lists.

>>> removeEmptyList [[1,2,3], [], [4,5]]
[[1,2,3],[4,5]]

>>> removeEmptyList [[]]
[]

>>> removeEmptyList [[1]]
[[1]]

>>> removeEmptyList [[1,2], [10,20], [100,200]]
[[1,2],[10,20],[100,200]]