diff options
| author | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-06 19:36:12 +0200 |
|---|---|---|
| committer | Gregor Kleen <pngwjpgh@users.noreply.github.com> | 2016-07-06 19:36:12 +0200 |
| commit | 635e2dac8e4db3f0d785537d55002540ae2aaa11 (patch) | |
| tree | 527a690ed78a547e6c6b622557f677363ebafd27 /src | |
| parent | 26ff5b85f3a2d27f3b9a82dca632bc58d2dfa1f1 (diff) | |
| download | 2017-01-16_17:13:37-635e2dac8e4db3f0d785537d55002540ae2aaa11.tar 2017-01-16_17:13:37-635e2dac8e4db3f0d785537d55002540ae2aaa11.tar.gz 2017-01-16_17:13:37-635e2dac8e4db3f0d785537d55002540ae2aaa11.tar.bz2 2017-01-16_17:13:37-635e2dac8e4db3f0d785537d55002540ae2aaa11.tar.xz 2017-01-16_17:13:37-635e2dac8e4db3f0d785537d55002540ae2aaa11.zip | |
Ask for seqVal if we don´t have a formula
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 |