| definition: |
verifyFunc :: TermDomain a => FuncDecl -> VerifyStateM a ()
verifyFunc (Func qf ar _ ftype rule) = case rule of
Rule vs exp -> unless noVerify $ do
setCurrentFunc qf ar vs
verifyFuncRule vs ftype (normalizeLet exp)
External _ -> return ()
where
noVerify = qf `elem` noVerifyFunctions ||
nonfailSuffix `isSuffixOf` snd qf
|
| demand: |
argument 2 |
| deterministic: |
deterministic operation |
| documentation: |
-- Verify a FlatCurry function declaration. |
| indeterministic: |
might be indeterministic |
| infix: |
no fixity defined |
| name: |
verifyFunc |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
Analysis.TermDomain.TermDomain a => FlatCurry.Types.FuncDecl -> 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 |