github/elm-mdl
1
0
Fork 0
mirror of https://github.com/correl/elm-mdl.git synced 2024-12-18 03:00:11 +00:00
Code Issues Projects Releases Packages Wiki Activity

Cleans up commented code

Browse source
This commit is contained in:
Håkon Rossebø 2016-03-24 10:00:55 +01:00
parent 903091e625
commit 3fbdadfe88
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Material/Style.elm
View file

@ -98,10 +98,7 @@ Note that if you do specify `style`, `class`, or `classList` attributes in
styled : (List Attribute -> a) -> List Style -> List Attribute -> a styled : (List Attribute -> a) -> List Style -> List Attribute -> a
styled ctor styles attrs = styled ctor styles attrs =
let let
-- multipleStyles = (List.filterMap multipleOf styles)
-- could need some help on how to proceed here
flatStyles = List.foldl flatten [] styles flatStyles = List.foldl flatten [] styles
-- (List.filterMap multipleOf styles)
styleAttrs = (List.filterMap attrOf flatStyles) styleAttrs = (List.filterMap attrOf flatStyles)
|> List.map (\attrib -> Html.Attributes.attribute (fst attrib) ( snd attrib)) |> List.map (\attrib -> Html.Attributes.attribute (fst attrib) ( snd attrib))
in in