1 files changed, 4 insertions, 1 deletions

diff --git a/src/Sequence/Types.hs b/src/Sequence/Types.hs
index afe1060..fd8d7ab 100644
--- a/src/Sequence/Types.hs
+++ b/src/Sequence/Types.hs
@@ -7,7 +7,7 @@ module Sequence.Types
   , Entity(..), eFaction, eSeqVal
   , EntityName(..), entityName
   , EntityIdentifier(..), entityId
-  , inhabitedFactions, priorityQueue
+  , inhabitedFactions, priorityQueue, tip
   ) where
 
 import Control.Lens
@@ -99,3 +99,6 @@ priorityQueue = to priorityQueue'
     priorityQueue' (Map.toAscList . view gEntities -> entities) = sortBy (comparing $ Down . snd) . concat . map filter . map (over _1 $ view eSeqVal) . map swap $ entities
     filter (Nothing, _) = mempty
     filter (Just val, id) = pure (val, id)
+
+tip :: Getter GameState (Maybe EntityIdentifier)
+tip = priorityQueue . to (fmap snd . listToMaybe)