justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Fix equipment equipping/moving with right click

Browse Source
This commit is contained in:
justin
2024-11-04 20:41:20 +00:00
parent 489ff21e12
commit 38ab6a35da
9 changed files with 124 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/DoubleTree.hs
+2 -2
View File
@@ -200,10 +200,10 @@ locToTop loc = maybe loc locToTop $ locUp loc
--locToTop = fix $ \x -> fromMaybe x $ locUp x
locLeftmost :: LocationLDT b a -> LocationLDT b a
locLeftmost loc = maybe loc locLeftmost $ alaf Last foldMap Just $ locGoLeft loc
locLeftmost loc = maybe loc locLeftmost $ alaf First foldMap Just $ locGoLeft loc
locRightmost :: LocationLDT b a -> LocationLDT b a
locRightmost loc = maybe loc locRightmost $ alaf First foldMap Just $ locGoRight loc
locRightmost loc = maybe loc locRightmost $ alaf Last foldMap Just $ locGoRight loc
-- should probably do tests for these
locGoLeft :: LocationLDT b a -> [LocationLDT b a]