|
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 |