runQCBuilder :: (IsGate g, GateToQCBuilder g) => IO.Newline -> QCBuilder g (QCComponent g) -> ByteString
runQCBuilder nl = toLazyByteString . runQCBuilderToBlazeBuilder newlineBuilder
  where
    newlineBuilder =
        case nl of
          IO.LF -> fromChar '\n'
          IO.CRLF -> fromString "\r\n"

runQCBuilder :: (IsGate g, GateToQCBuilder g) => IO.Newline -> QCBuilder g (QCComponent g) -> ByteString
runQCBuilder nl = toLazyByteString . runQCBuilderToBlazeBuilder newlineBuilder
  where
    newlineBuilder =
        case nl of
          IO.LF -> fromChar '\n'
          IO.CRLF -> fromString "\r\n"

runQCBuilder nl = toLazyByteString . runQCBuilderToBlazeBuilder newlineBuilder
  where
    newlineBuilder =
        case nl of
          IO.LF -> fromChar '\n'
          IO.CRLF -> fromString "\r\n"
