From 3fbdadfe885e698e9e9dbd55de1d09bda4ff251b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?H=C3=A5kon=20Rosseb=C3=B8?= Date: Thu, 24 Mar 2016 10:00:55 +0100 Subject: [PATCH] Cleans up commented code --- src/Material/Style.elm | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/Material/Style.elm b/src/Material/Style.elm index ad87e8d..a2d0ead 100644 --- a/src/Material/Style.elm +++ b/src/Material/Style.elm @@ -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 ctor styles attrs = let - -- multipleStyles = (List.filterMap multipleOf styles) - -- could need some help on how to proceed here flatStyles = List.foldl flatten [] styles - -- (List.filterMap multipleOf styles) styleAttrs = (List.filterMap attrOf flatStyles) |> List.map (\attrib -> Html.Attributes.attribute (fst attrib) ( snd attrib)) in