From c69563da3ea55820af21edb7cf2af40906630e6e Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 8 May 2016 00:40:02 +0200 Subject: command parsing --- src/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Utils.hs') 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 -- cgit v1.2.3