path: root/lib/dialyzer/test/small_tests_SUITE_data/src/orelsebug2.erl

%%%-------------------------------------------------------------------
%%% 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.