goodPage :: ServerPart Response
goodPage = appTemplate "The emporer's secret to good dialogue" $ do
    BH.p "Something, something, something dark side"
    BH.p "Something, something, something complete"
goodPage :: ServerPart Response
goodPage = appTemplate "The emporer's secret to good dialogue" $ do
    BH.p "Something, something, something dark side"
    BH.p "Something, something, something complete"
goodPage = appTemplate "The emporer's secret to good dialogue" $ do
    BH.p "Something, something, something dark side"
    BH.p "Something, something, something complete"