anchor.diff:          default -> Connection#connection{state=pipeline}
       end.
   
  -exec(Id, #connection{state=State}=Connection) ->
  +commit(Id, #connection{state=State}=Connection) ->
       case State of
           transaction -> dispatch_transaction(Id, Connection);
           pipeline -> dispatch_pipeline(Id, Connection)
  -    end.
  +    end,
  +    Connection#connection{state=default, stored=[]}.
   
   handle_command(Id, #connection{client=Client, state=State, stored=Stored}=Connection, Command) ->
       case State of
  
positive.code:         Parent ! #store_result{id=Id, result=Result}
      end).
  
  driver() ->
      C = connect("127.0.0.1", 6379),
      io:format("connected~n"),
      C2 = redis_store:set(blah, C, "foo", "bar"),
      io:format("called set~n"),
      redis_store:get(blah, C2, "foo"),
      io:format("called get~n"),
      receive
          Any -> io:format("got a response: ~p~n", [Any])
      end,
      receive
          Any2 -> io:format("got a response: ~p~n", [Any2])
      end.
  
  
negative.code: -module(redis_store).
  -export([connect/2]).
  -export([get/3, set/4]). %, delete/3]).
  -export([pipeline/1, transaction/1, commit/2]).
  -compile(export_all).
  
  -include("store.hrl").
  
  -record(connection, {client, state, stored}).
  
  -include_lib("eunit/include/eunit.hrl").
  
  connect(Host, Port) ->
      {ok, Client} = eredis:start_link(Host, Port),
  