Nicified demos.

This commit is contained in:
Søren Debois 2016-04-12 16:38:55 +02:00
parent 215dffcf88
commit aa08fcb272

View file

@ -520,6 +520,7 @@ view addr model { drawer, header, tabs, main } =
, contentDrawerButton
, main'
( class "mdl-layout__content"
:: key ("elm-mdl-layout-" ++ toString model.selectedTab)
:: (
if isWaterfall model.mode then
[ on "scroll" (DOM.target DOM.scrollTop) (Signal.message scrollMailbox.address) ]