module NsfwWarning (What (..), script, dialog) where import BuilderQQ data What = Single | Gallery instance CanBuild What where build Single = "this art" build Gallery = "some of the art in this gallery" script :: Maybe What -> Builder script Nothing = "" script (Just _) = [b||] dialog :: Maybe What -> Builder dialog Nothing = "" dialog (Just what) = [b|@0

cw: lewd art

$what contains pornographic content that is not suitable for minors.

by continuing, you are confirming that you are at least eighteen years old.

|]