framework for command parsing

1 files changed, 10 insertions, 0 deletions

diff --git a/src/Utils.hs b/src/Utils.hs
index 2254fde..945c6b7 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -3,16 +3,23 @@
 module Utils
        ( showEntity
        , apply, apply'
+       , entities
        ) where
 
 import Data.Text (Text)
 import qualified Data.Text as Text
 
+import Data.PQueue.Prio.Max (MaxPQueue)
+import qualified Data.PQueue.Prio.Max as MaxPQueue
+
 import Data.Monoid (Monoid(..), (<>))
 
 import Control.Monad.State.Class
 import Control.Monad.Writer.Class
 
+import Data.Set (Set)
+import qualified Data.Set as Set
+
 import Types
 
 showEntity :: Entity -> Text
@@ -28,3 +35,6 @@ apply' alteration = do
 
 apply :: Alteration -> Sequence -> (Sequence, History)
 apply alteration seq = undefined
+
+entities :: MonadState Sequence m => m (Set Entity)
+entities = Set.fromList . MaxPQueue.keys <$> get