aboutsummaryrefslogtreecommitdiffstats
path: root/lib/dialyzer/test/small_SUITE_data/src/orelsebug2.erl
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.