fraport/fradrive-old
fraport/fradrive-old
Archived
3
1
Fork 0
Code Issues 65 Pull Requests 5 Actions Packages Projects Releases 197 Wiki Activity

chore(icons): add more icons

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-27 23:32:43 +02:00
parent 66352522da
commit dddb2746e5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Utils/Icon.hs
View File

@ -86,6 +86,11 @@ data Icon
| IconFileUploadSession | IconFileUploadSession
| IconStandaloneFieldError | IconStandaloneFieldError
| IconFileUser | IconFileUser
| IconFastBackward
| IconBackward
| IconCurrent
| IconForward
| IconFastForward
deriving (Eq, Ord, Enum, Bounded, Show, Read, Generic, Typeable) deriving (Eq, Ord, Enum, Bounded, Show, Read, Generic, Typeable)
iconText :: Icon -> Text iconText :: Icon -> Text
@ -150,6 +155,11 @@ iconText = \case
IconFileUploadSession -> "file-upload" IconFileUploadSession -> "file-upload"
IconStandaloneFieldError -> "exclamation" IconStandaloneFieldError -> "exclamation"
IconFileUser -> "file-user" IconFileUser -> "file-user"
IconFastBackward -> "angle-double-left"
IconBackward -> "angle-left"
IconCurrent -> "circle"
IconForward -> "angle-right"
IconFastForward -> "angle-double-right"
instance Universe Icon instance Universe Icon
instance Finite Icon instance Finite Icon