From dddb2746e524155d283ff79eccc7528c1908bb31 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel <> Date: Thu, 27 Aug 2020 23:32:43 +0200 Subject: [PATCH] chore(icons): add more icons --- src/Utils/Icon.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/Utils/Icon.hs b/src/Utils/Icon.hs index e401f2db7..f6a9d2329 100644 --- a/src/Utils/Icon.hs +++ b/src/Utils/Icon.hs @@ -86,6 +86,11 @@ data Icon | IconFileUploadSession | IconStandaloneFieldError | IconFileUser + | IconFastBackward + | IconBackward + | IconCurrent + | IconForward + | IconFastForward deriving (Eq, Ord, Enum, Bounded, Show, Read, Generic, Typeable) iconText :: Icon -> Text @@ -150,6 +155,11 @@ iconText = \case IconFileUploadSession -> "file-upload" IconStandaloneFieldError -> "exclamation" IconFileUser -> "file-user" + IconFastBackward -> "angle-double-left" + IconBackward -> "angle-left" + IconCurrent -> "circle" + IconForward -> "angle-right" + IconFastForward -> "angle-double-right" instance Universe Icon instance Finite Icon