git.iko.soy/elk
on master help sign in
Get rid of old operator
884eb78Evan Czaplicki
ui/browser/src/Index/Navigator.elm+4−19
compare with master
unifiedsplit
@@ -1,24 +1,9 @@
1−module Index.Navigator exposing (view, (</>))
1+module Index.Navigator exposing (view)
2
2
3
3
4−import Color
5import Html exposing (..)
4import Html exposing (..)
6import Html.Attributes exposing (..)
5import Html.Attributes exposing (..)
7−
6+import Index.Icon as Icon
8−import TempFontAwesome as FA
9−
10−
11−
12−-- ADD SLASHES
13−
14−
15−(</>) : String -> String -> String
16−(</>) directory file =
17− if String.endsWith "/" directory then
18− directory ++ file
19−
20− else
21− directory ++ "/" ++ file
22
7
23
8
24
9
@@ -43,7 +28,7 @@ makeLinks root dirs oldPath revAnchors =
43 dir :: otherDirs ->
28 dir :: otherDirs ->
44 let
29 let
45 newPath =
30 newPath =
46− oldPath </> dir
31+ oldPath ++ "/" ++ dir
47
32
48 anchor =
33 anchor =
49 a [ href newPath ] [ text dir ]
34 a [ href newPath ] [ text dir ]
@@ -57,7 +42,7 @@ makeLinks root dirs oldPath revAnchors =
57 , title root
42 , title root
58 , style "display" "inherit"
43 , style "display" "inherit"
59 ]
44 ]
60− [ FA.home Color.darkGrey 36
45+ [ Icon.home
61 ]
46 ]
62 in
47 in
63 case revAnchors of
48 case revAnchors of