More ui tweaks to item list

This commit is contained in:
Eike Kettner
2020-05-17 18:14:54 +02:00
parent 62111e5f93
commit 98f202b797
4 changed files with 31 additions and 6 deletions

View File

@ -5,6 +5,7 @@ module Data.Direction exposing
, icon
, iconFromMaybe
, iconFromString
, labelFromMaybe
, toString
)
@ -70,3 +71,10 @@ iconFromMaybe : Maybe String -> String
iconFromMaybe ms =
Maybe.map iconFromString ms
|> Maybe.withDefault unknownIcon
labelFromMaybe : Maybe String -> String
labelFromMaybe ms =
Maybe.andThen fromString ms
|> Maybe.map toString
|> Maybe.withDefault "Direction"