blob: 52b1b3b5a9c439392a109e1956672f41d67f3f6c (
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.
|