Add lift function to Material.Menu.view

debois · Jul 25, 2016 · 2891a87 · 2891a87
1 parent 9f7ed14
commit 2891a87
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/src/Material/Menu.elm b/src/Material/Menu.elm
@@ -321,13 +321,8 @@ outlineGeometry config geometry =
 
 {-| Component view
 -}
-view : Model -> List (Property Msg) -> List (Item Msg) -> Html Msg
-view =
-  view' identity
-
-
-view' : (Msg -> m) -> Model -> List (Property m) -> List (Item m) -> Html m
-view' lift model properties items =
+view : (Msg -> m) -> Model -> List (Property m) -> List (Item m) -> Html m
+view lift model properties items =
   let
     summary = Options.collect defaultConfig properties
     config = summary.config
@@ -509,7 +504,7 @@ render
   -> List (Item m)
   -> (Html m)
 render =
-  Parts.create view' update .menu (\x y -> {y | menu=x}) defaultModel
+  Parts.create view update .menu (\x y -> {y | menu=x}) defaultModel
 
 
 -- HELPERS