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>
    |]