aboutsummaryrefslogtreecommitdiff
path: root/src/client/View/Expand.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View/Expand.elm')
-rw-r--r--src/client/View/Expand.elm25
1 files changed, 0 insertions, 25 deletions
diff --git a/src/client/View/Expand.elm b/src/client/View/Expand.elm
deleted file mode 100644
index 53b4fe5..0000000
--- a/src/client/View/Expand.elm
+++ /dev/null
@@ -1,25 +0,0 @@
-module View.Expand
- ( expand
- , ExpandType(..)
- ) where
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import View.Icon exposing (renderIcon)
-
-type ExpandType = ExpandUp | ExpandDown
-
-expand : ExpandType -> Bool -> Html
-expand expandType isExpanded =
- div
- [ class "expand" ]
- [ renderIcon (chevronIcon expandType isExpanded) ]
-
-chevronIcon : ExpandType -> Bool -> String
-chevronIcon expandType isExpanded =
- case (expandType, isExpanded) of
- (ExpandUp, True) -> "chevron-down"
- (ExpandUp, False) -> "chevron-up"
- (ExpandDown, True) -> "chevron-up"
- (ExpandDown, False) -> "chevron-down"