diff options
| author | Joris | 2016-06-03 20:27:16 +0200 |
|---|---|---|
| committer | Joris | 2016-06-03 20:27:16 +0200 |
| commit | 8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679 (patch) | |
| tree | d6ba0985a534a0e2e317b1edb0d4c999119d87ff /src/client/elm/View/Click.elm | |
| parent | 3a88115d118f8256f3ff034dc359df42a9e4051c (diff) | |
| download | budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.tar.gz budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.tar.bz2 budget-8e3a7bf1cb83bbb6e3dcd54308eefa52a29cd679.zip | |
Migrate to elm 0.17
Diffstat (limited to 'src/client/elm/View/Click.elm')
| -rw-r--r-- | src/client/elm/View/Click.elm | 24 |
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) - ] |