Create an empty but reachable user page

1 files changed, 0 insertions, 25 deletions

diff --git a/src/client/elm/LoggedIn/View/Expand.elm b/src/client/elm/LoggedIn/View/Expand.elm
deleted file mode 100644
index 1055c1b..0000000
--- a/src/client/elm/LoggedIn/View/Expand.elm
+++ /dev/null
@@ -1,25 +0,0 @@
-module LoggedIn.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"