module IHP.IDE.SchemaDesigner.View.Schema.Error where import IHP.ViewPrelude data ErrorView = ErrorView { ErrorView -> ByteString error :: ByteString } instance View ErrorView where html :: (?context::ControllerContext, ?view::ErrorView) => ErrorView -> Html html ErrorView { ByteString $sel:error:ErrorView :: ErrorView -> ByteString error :: ByteString .. } = [hsx| <div class="visual-error"> <pre><code>{error}</code></pre> </div> |]