| definition: |
processAdd :: ReplState -> String -> IO (Maybe ReplState)
processAdd rst0 args
| null args = skipCommand "Missing module name"
| otherwise = Just `fmap` foldIO add rst0 (map stripCurrySuffix (words args))
where
add rst m =
if validModuleName m
then do
mbf <- lookupModuleSource (loadPaths rst) m
case mbf of
Nothing -> do
writeErrorMsg $ "Source file of module '" ++ m ++ "' not found"
return rst
Just _ ->
if m `elem` addMods rst
then return rst
else compileCurryProgram rst m >>=
maybe (return rst)
(\rs' -> return rs' { addMods = insM (addMods rs') })
else do writeErrorMsg $ "Illegal module name (ignored): " ++ m
return rst
where
insM [] = [m]
insM ms@(n:ns) | m < n = m : ms
| m == n = ms
| otherwise = n : insM ns
foldIO _ a [] = return a
foldIO f a (x:xs) = f a x >>= \fax -> foldIO f fax xs
|
| demand: |
argument 2 |
| deterministic: |
deterministic operation |
| documentation: |
--- Process :add command |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_,_) |-> _}
|
| name: |
processAdd |
| 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 |