1 files changed, 1 insertions, 1 deletions

diff --git a/src/Utils.hs b/src/Utils.hs
index 945c6b7..6c8f0c1 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -37,4 +37,4 @@ apply :: Alteration -> Sequence -> (Sequence, History)
 apply alteration seq = undefined
 
 entities :: MonadState Sequence m => m (Set Entity)
-entities = Set.fromList . MaxPQueue.keys <$> get
+entities = Set.fromList . MaxPQueue.elems <$> get