diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index b056aff..bddc85e 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
| @@ -287,7 +287,7 @@ factionSeqVal = withArg $ \qFaction -> use gEntities >>= mapM_ (entitySeqVal') . | |||
| 287 | entitySeqVal' :: EntityIdentifier -> Sh GameState () | 287 | entitySeqVal' :: EntityIdentifier -> Sh GameState () |
| 288 | entitySeqVal' ident = void . runMaybeT $ do | 288 | entitySeqVal' ident = void . runMaybeT $ do |
| 289 | entity <- MaybeT $ preuse (gEntities . ix ident) | 289 | entity <- MaybeT $ preuse (gEntities . ix ident) |
| 290 | sVal <- MaybeT . return $ preview (eStats . sSeqVal) entity | 290 | let sVal = fromMaybe (val ignored ["Sequenzwert"] False) $ preview (eStats . sSeqVal) entity |
| 291 | name <- toName ident | 291 | name <- toName ident |
| 292 | round <- use gRound | 292 | round <- use gRound |
| 293 | (newEntity, sNum) <- evalFormula [name] entity sVal | 293 | (newEntity, sNum) <- evalFormula [name] entity sVal |