Webb.Writer.Internal

type St = { column :: Int, indentSpaces :: Int, lastWrite :: String, line :: Int, output :: Array String }

type Position = { column :: Int, indentSpaces :: Int, line :: Int }

type StringWriterT :: (Type -> Type) -> Type -> Typetype StringWriterT = StateT St

type SWriterT :: (Type -> Type) -> Type -> Typetype SWriterT = StringWriterT

type SWriter = SWriterT Identity

default :: St

defaultPos :: Position

runToString :: SWriter Unit -> String

execSWriterT :: forall m a. Monad m => St -> SWriterT m a -> m St

evalSWriterT :: forall m a. Monad m => St -> SWriterT m a -> m a

runSWriterT :: forall m a. Monad m => St -> SWriterT m a -> m (Tuple a St)

getPosition :: forall m. Monad m => SWriterT m Position

getOutput :: forall m. Monad m => SWriterT m String

clearOutput :: forall m. Monad m => SWriterT m Unit

lastCodePoint :: forall m. Monad m => SWriterT m (Maybe CodePoint)

token :: forall m. Monad m => String -> SWriterT m Unit

tokens :: forall m. Monad m => Array String -> SWriterT m Unit

word :: forall m. Monad m => String -> SWriterT m Unit

words :: forall m. Monad m => Array String -> SWriterT m Unit

withIndent :: forall m. Monad m => Int -> SWriterT m Unit -> SWriterT m Unit

indent :: forall m. Monad m => Int -> SWriterT m Unit -> SWriterT m Unit

write :: forall m. Monad m => String -> SWriterT m Unit

newline :: forall m. Monad m => SWriterT m Unit