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

you must be an adult to view $what. no minors!
|]