| definition: |
getCurryCheck :: Config -> ErrorLogger (Maybe String)
getCurryCheck cfg = do
mbf <- liftIOEL $ getFileInPath ccbin
maybe (do let cpmcurrycheck = binInstallDir cfg </> ccbin
ccex <- liftIOEL $ doesFileExist cpmcurrycheck
if ccex then return $ Just cpmcurrycheck
else do logInfo "Executable 'curry-check' not found!"
return Nothing
)
(return . Just)
mbf
where
ccbin = "curry-check"
|
| demand: |
no demanded arguments |
| deterministic: |
deterministic operation |
| documentation: |
------------------------------------------------------------------------------ --- Returns the `curry-check` command, either from the current path --- or from CPM's bin directory, or `Nothing` if it does not exist. --- If it does not exist, report this also as an info. |
| failfree: |
<FAILING> |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{(_) |-> _}
|
| name: |
getCurryCheck |
| precedence: |
no precedence defined |
| result-values: |
_ |
| signature: |
CPM.Config.Config -> CPM.ErrorLogger.ErrorLogger (Prelude.Maybe String) |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |