otp R6.0B0

[Geoff Wong]

> So I tried the following:
> 
> not_started_servers(Ss) ->
>     F=fun(X,Y)-> case lists:member(X,Y) of
>                       true -> false; false -> true end end,
>     db:eval(query
>             [T ||
>               T <- table(template),
>               F(S, Ss),
>               C=S.cluster,
>               T.cluster=C#cluster.name,
>               OriginT=S#server.template,
>               T.node=OriginT#template.node]
>     end).
> 
> This also results in a runtime crash too (but I might've
> got the fun wrong).
> Anyway - does anyone have any better suggestions?

Well - one more variation and it worked:

ugly(X,Y)->
    case lists:member(X,Y) of
        true -> false;
        false -> true
    end.
not_started_servers(Ss) ->
    db:eval(query
            [T ||
              T <- table(template),
              master_server:ugly(S, Ss),
              C=S.cluster,
              T.cluster=C#cluster.name,
              OriginT=S#server.template,
              T.node=OriginT#template.node]
    end).


Looks like some work needs to be done in the mnemosyne preprocessor.

Geoff