journal: improve unassignable error.
This commit is contained in:
parent
07d0a003a3
commit
11a5809c5c
@ -705,7 +705,13 @@ checkUnassignablePosting :: Posting -> CurrentBalancesModifier s ()
|
|||||||
checkUnassignablePosting p = do
|
checkUnassignablePosting p = do
|
||||||
unassignable <- R.asks eUnassignable
|
unassignable <- R.asks eUnassignable
|
||||||
if (isAssignment p && paccount p `S.member` unassignable)
|
if (isAssignment p && paccount p `S.member` unassignable)
|
||||||
then throwError $ "Can't assign to account: " ++ (T.unpack $ paccount p)
|
then throwError $ unlines $
|
||||||
|
[ "cannot assign amount to account "
|
||||||
|
, ""
|
||||||
|
, " " ++ (T.unpack $ paccount p)
|
||||||
|
, ""
|
||||||
|
, "because it is also included in transaction modifiers."
|
||||||
|
]
|
||||||
else return ()
|
else return ()
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user