Cleanup

src/Dodge/Debug.hs

@@ -13,6 +13,7 @@ import Dodge.Debug.Picture
 import Dodge.WorldEvent.ThingsHit
 import Geometry.Vector
 import qualified SDL
+import Data.Ord
 
 debugEvents :: Universe -> Universe
 debugEvents u = case dbools ^. at Enable_debug of
@@ -90,8 +91,8 @@ clickGetCreature u
 
 closestCreatureID :: Universe -> Maybe Int
 closestCreatureID u =
-    fmap (_crID . snd) . listToMaybe . reverse
-        . sortOn (dist mwp . fst)
+    fmap (_crID . snd) . listToMaybe
+        . sortOn (Down . dist mwp . fst)
         . crsHitRadial mwp 100
         $ _uvWorld u
   where