Extract tags

elm/Main.elm

@@ -130,8 +130,6 @@ header model =
                               else
                                 Border.width 1
                             , Border.rounded 5
-                            , Element.width Element.fill
-                            , Element.height Element.fill
                             ]
                             { label = Element.el [ Element.centerX, Element.centerY ] (Element.text (Emoji.categoryEmoji x).unicode)
                             , onPress = Just (CategoryClicked x)
@@ -205,8 +203,8 @@ port copy : String -> Cmd msg
 -- UTILS --
 
 
-minimum : ( comparable, List comparable ) -> comparable
-minimum ( h, t ) =
+minimum : comparable -> List comparable -> comparable
+minimum h t =
     case List.minimum t of
         Nothing ->
             h
@@ -215,8 +213,8 @@ minimum ( h, t ) =
             min h v
 
 
-maximum : ( comparable, List comparable ) -> comparable
-maximum ( h, t ) =
+maximum : comparable -> List comparable -> comparable
+maximum h t =
     case List.maximum t of
         Nothing ->
             h