| definition: |
getConsComment :: [String] -> String -> Maybe ((String,String))
getConsComment [] _ = Nothing
getConsComment (conscmt:conscmts) cname =
let (consname,rconscmt) = span isIdChar conscmt
in if consname == cname
then let (conscall,callcmt) = break (=='-') conscmt
in Just (if null callcmt then (consname,rconscmt)
else (conscall,callcmt))
else getConsComment conscmts cname
|
| demand: |
argument 1 |
| deterministic: |
deterministic operation |
| documentation: |
-- get comment for a constructor or a field name |
| failfree: |
(_, _) |
| indeterministic: |
referentially transparent operation |
| infix: |
no fixity defined |
| iotype: |
{({[]},_) |-> {Nothing} || ({:},_) |-> {Just,Nothing}}
|
| name: |
getConsComment |
| precedence: |
no precedence defined |
| result-values: |
{Just,Nothing}
|
| signature: |
[String] -> String -> Prelude.Maybe (String, String) |
| solution-complete: |
operation might suspend on free variables |
| terminating: |
possibly non-terminating |
| totally-defined: |
possibly non-reducible on same data term |