aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View/Click.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/View/Click.elm')
-rw-r--r--src/client/elm/View/Click.elm24
1 files changed, 0 insertions, 24 deletions
diff --git a/src/client/elm/View/Click.elm b/src/client/elm/View/Click.elm
deleted file mode 100644
index a722cac..0000000
--- a/src/client/elm/View/Click.elm
+++ /dev/null
@@ -1,24 +0,0 @@
-module View.Click
- ( clickTo
- ) where
-
-import Signal
-import Json.Decode as Json
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import TransitRouter
-import Route exposing (Route, toPath)
-
-clickTo : Route -> List Attribute
-clickTo route =
- let path = toPath route
- in [ href path
- , onWithOptions
- "click"
- { stopPropagation = True, preventDefault = True }
- Json.value
- (\_ -> Signal.message TransitRouter.pushPathAddress path)
- ]