dan/souplesse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use a Maybe instead of NoTarget

Browse Source
This commit is contained in:
Daniel Barlow 2024-11-25 21:36:07 +00:00
parent 7dc7c6b2b0
commit dfe0a7dbd5
2 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
frontend/src/Main.elm
View File

@ -145,7 +145,6 @@ handleDragFinish model target (x, y) =
(s, d) = model.markedTime (s, d) = model.markedTime
in (s, d - deltat) in (s, d - deltat)
} }
NoTarget -> model
updateModel msg model = updateModel msg model =
@ -347,12 +346,12 @@ targetedEventDecoder =
Pointer.eventDecoder Pointer.eventDecoder
(D.at ["target", "id"] D.string) (D.at ["target", "id"] D.string)
targetFor : String -> DragTarget targetFor : String -> Maybe DragTarget
targetFor s = targetFor s =
case s of case s of
"left-marker" -> StartMark "left-marker" -> Just StartMark
"right-marker" -> EndMark "right-marker" -> Just EndMark
_ -> NoTarget _ -> Nothing
onDownWithTarget tag = onDownWithTarget tag =
let let
@ -439,7 +438,11 @@ timeAxis model points =
svg svg
[ width portalWidth [ width portalWidth
, height (graphHeight + 20) , height (graphHeight + 20)
, onDownWithTarget (\e -> DragStart (targetFor e.targetId) (epos e.pointerEvent)) , onDownWithTarget (\e ->
case targetFor e.targetId of
Just tgt -> DragStart tgt (epos e.pointerEvent)
Nothing -> Dribble "drag with unknown target"
)
, viewBox ("0 -10 " ++ (String.fromInt portalWidth) ++ , viewBox ("0 -10 " ++ (String.fromInt portalWidth) ++
" " ++ (String.fromInt (graphHeight + 10))) " " ++ (String.fromInt (graphHeight + 10)))
] ]

2
frontend/src/Model.elm
View File

@ -8,7 +8,7 @@ module Model exposing
import TileMap exposing (ZoomLevel, Coord) import TileMap exposing (ZoomLevel, Coord)
import Point exposing (Point) import Point exposing (Point)
type DragTarget = Map | Graph | StartMark | EndMark | NoTarget type DragTarget = Map | Graph | StartMark | EndMark
type Drag type Drag
= None = None