Function failsOnFirstLine

packages/printer/src/internal/layout.ts:414–447

(self: DocStream.DocStream<A>)

  )

const failsOnFirstLine = <A>(self: DocStream.DocStream<A>): boolean => {
  let stream = self
  // eslint-disable-next-line no-constant-condition
  while (1) {
    switch (stream._tag) {
      case "FailedStream": {
        return true
      }
      case "EmptyStream": {
        return false
      }
      case "CharStream": {
        stream = stream.stream
        break
      }
      case "TextStream": {
        stream = stream.stream
        break
      }
      case "LineStream": {
        return false
      }
      case "PushAnnotationStream": {
        stream = stream.stream
        break
      }
      case "PopAnnotationStream": {
        stream = stream.stream
        break
      }
    }
  }
  throw new Error("bug")
}