| definition: |
processSetOption :: ReplState -> String -> IO (Maybe ReplState)
processSetOption rst option
| null (strip option)
= printOptions rst >> return (Just rst)
| otherwise
= case matched of
[] -> skipCommand $ "unknown option: '" ++ option ++ "'"
[(_,act)] -> act rst (strip args)
_ -> skipCommand $ "ambiguous option: ':" ++ option ++ "'"
where
(opt, args) = break (==' ') option
matched = filter (isPrefixOf (map toLower opt) . fst)
(replOptions rst)
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
--------------------------------------------------------------------------- -- Process setting of an option |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_) |-> _}
|
| name: |
processSetOption |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
REPL.State.ReplState -> String -> Prelude.IO (Prelude.Maybe REPL.State.ReplState) |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |