From 96d7905f7faef941f5454fd2c8b0b50a294fd26c Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Wed, 18 Oct 2017 20:59:41 +0200 Subject: Borked mouse controls for the navigator, it seems. --- elm/battlemap/src/Battlemap/Navigator/Path.elm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'elm/battlemap/src/Battlemap/Navigator/Path.elm') diff --git a/elm/battlemap/src/Battlemap/Navigator/Path.elm b/elm/battlemap/src/Battlemap/Navigator/Path.elm index a20c0b7..53e12c0 100644 --- a/elm/battlemap/src/Battlemap/Navigator/Path.elm +++ b/elm/battlemap/src/Battlemap/Navigator/Path.elm @@ -4,6 +4,7 @@ module Battlemap.Navigator.Path exposing new, get_current_location, get_remaining_points, + get_summary, try_following_direction ) @@ -131,6 +132,8 @@ get_current_location path = path.current_location get_remaining_points : Type -> Int get_remaining_points path = path.remaining_points +get_summary : Type -> (List Battlemap.Direction.Type) +get_summary path = path.previous_directions try_following_direction : ( (Battlemap.Location.Type -> Bool) -> (Battlemap.Location.Type -> Int) -> -- cgit v1.2.3-70-g09d2