val string_of_alert : a: MiTLS.Parsers.Alert.alert -> Prims.string
let string_of_alert (a:alert) = 
  "level="^string_of_alertLevel a.level^
  "description="^string_of_alertDescription a.description
﻿module MiTLS.TLSError
open MiTLS
open FStar.String
(* TLS explicitly returns run-time errors:
   results carry either values or error descriptions *)

include MiTLS.Parsers.AlertDescription
include MiTLS.Parsers.AlertLevel
include MiTLS.Parsers.Alert

let string_of_alertDescription (a:alertDescription) = "alertDescription"
/
prims.fst.checked MiTLS.Parsers.AlertLevel.fsti.checked MiTLS.Parsers.AlertDescription.fsti.checked MiTLS.Parsers.Alert.fsti.checked FStar.String.fsti.checked FStar.Pervasives.Native.fst.checked FStar.Pervasives.fsti.checked FStar.Error.fst.checked
MiTLS.TLSError.fst
a: MiTLS.Parsers.Alert.alert -> Prims.string
MiTLS.Parsers.Alert.alert Prims.op_Hat MiTLS.TLSError.string_of_alertLevel MiTLS.Parsers.Alert.__proj__Mkalert__item__level MiTLS.TLSError.string_of_alertDescription MiTLS.Parsers.Alert.__proj__Mkalert__item__description Prims.string
let string_of_alert (a: alert) =
  
"level=" ^ string_of_alertLevel a.level ^ "description=" ^ string_of_alertDescription a.description