| definition: |
addMissingCase :: TermDomain a => Expr -> [QName] -> VerifyStateM a ()
addMissingCase exp qcs = do
st <- get
let (qf,ar,_) = vstCurrFunc st
put $
st { vstPartialBranches = union [(qf,ar,exp,qcs)] (vstPartialBranches st) }
addCallTypeRestriction qf failACallType
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
-- Adds an info about cases with missing branches in the current function. |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| name: |
addMissingCase |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Analysis.TermDomain.TermDomain a => FlatCurry.Types.Expr -> [(String, String)] -> Control.Monad.Trans.State.StateT (VerifyState a) Prelude.IO () |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |