creationDisplay :: State -> Widget ()
creationDisplay _ = Ulmus.newWidget "creationDisplay" $
    rawHtml $ p ! atr "class" "red-text" $ ("" :: String)
creationDisplay :: State -> Widget ()
creationDisplay _ = Ulmus.newWidget "creationDisplay" $
    rawHtml $ p ! atr "class" "red-text" $ ("" :: String)
creationDisplay _ = Ulmus.newWidget "creationDisplay" $
    rawHtml $ p ! atr "class" "red-text" $ ("" :: String)