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-2.1.0.0-KYFD0DM15YjB0MtNxURnaU" 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-2.1.0.0-KYFD0DM15YjB0MtNxURnaU" 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))))))

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

Smart-constructor for PrinterState.

addToOutputList :: MonadState PrinterState m => Seq Output -> m ()

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 ()

addToNestLevel :: MonadState PrinterState m => NestLevel -> m ()

addToCurrentLine :: MonadState PrinterState m => LineNum -> 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]]