blob: 60e0c47384438323c762f260d75496820aafac71 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
%%%-------------------------------------------------------------------
%%% File : orelsebug2.erl
%%% Author : Tobias Lindahl <[email protected]>
%%% Description :
%%%
%%% Created : 21 Nov 2006 by Tobias Lindahl <[email protected]>
%%%-------------------------------------------------------------------
-module(orelsebug2).
-export([t/1]).
-record(eventdata, {
expires
}).
t(L) ->
L2 = [E1 || E1 <- L, E1#eventdata.expires == x
orelse E1#eventdata.expires == y],
case L2 of
[_E] -> x;
[] -> y
end.
|
