31 lines
729 B
Haskell
31 lines
729 B
Haskell
{-# OPTIONS_GHC -fdefer-typed-holes #-}
|
||
|
||
module NsfwWarning (script, dialog) where
|
||
|
||
import BuilderQQ
|
||
|
||
script :: Bool -> Builder
|
||
script False = ""
|
||
script True = [b|<script src=/script/nsfw-warning.js></script>|]
|
||
|
||
dialog :: Bool -> Builder
|
||
dialog False = ""
|
||
dialog True = [b|@0
|
||
<div class=dialog id=nsfw-dialog>
|
||
<div class=dialog-inner>
|
||
<h1>cw: lewd</h1>
|
||
|
||
<img class=dialog-icon src=/style/stop_hand.svg>
|
||
|
||
<div class=dialog-message>
|
||
are you an adult? <br> if not please don't look!
|
||
</div>
|
||
|
||
<div class=dialog-buttons>
|
||
<button id=nsfw-yes class=yes>yes i am and i wanna see</button>
|
||
<button id=nsfw-no class=no>no i’m not</button>
|
||
</div>
|
||
</div>
|
||
</div>
|
||
|]
|