closeModalButton :: State -> Widget Action
closeModalButton _ = Ulmus.newWidget "closeModalButton" $ wlink LoadProject $
     a ! atr "class" "modal-action modal-close waves-effect btn-flat waves-purple" $
        i ! atr "class" "material-icons" $ ("input" :: String)
closeModalButton :: State -> Widget Action
closeModalButton _ = Ulmus.newWidget "closeModalButton" $ wlink LoadProject $
     a ! atr "class" "modal-action modal-close waves-effect btn-flat waves-purple" $
        i ! atr "class" "material-icons" $ ("input" :: String)
closeModalButton _ = Ulmus.newWidget "closeModalButton" $ wlink LoadProject $
     a ! atr "class" "modal-action modal-close waves-effect btn-flat waves-purple" $
        i ! atr "class" "material-icons" $ ("input" :: String)