|
definition: |
patchMakeFile :: ERD -> String -> String
patchMakeFile _ [] = []
patchMakeFile erd@(ERD _ entities _) (c:cs)
| c=='X' && take 14 cs == "XXCURRYHOMEXXX"
= installDir ++ patchMakeFile erd (drop 14 cs)
| c=='X' && take 16 cs == "XXICONTROLLERXXX"
= unwords (map (\ (Entity ename _) -> "-i Controller." ++ ename) entities) ++
patchMakeFile erd (drop 16 cs)
| otherwise
= c : patchMakeFile erd cs
|
|
demand: |
argument 2 |
|
deterministic: |
deterministic operation |
|
documentation: |
Replace every occurrence of `XXXCURRYHOMEXXX` by `installDir` and every occurrince of `XXXICONTROLLERXXX` by `-i <controllermod1> ... -i <controllermodn>`. |
|
failfree: |
(_, _) |
|
indeterministic: |
referentially transparent operation |
|
infix: |
no fixity defined |
|
iotype: |
{(_,{[]}) |-> {[]} || ({ERD},{:}) |-> _}
|
|
name: |
patchMakeFile |
|
precedence: |
no precedence defined |
|
result-values: |
_ |
|
signature: |
Database.ERD.ERD -> String -> String |
|
solution-complete: |
operation might suspend on free variables |
|
terminating: |
possibly non-terminating |
|
totally-defined: |
possibly non-reducible on same data term |