From 591e8a5ec3f4dcd2ce262c7b241db86cd51f320d Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Fri, 27 May 2016 00:01:48 +0900
Subject: [PATCH] drop rollback from simple select runner.

---
 relational-record-examples/src/examples.hs | 1 -
 1 file changed, 1 deletion(-)

diff --git a/relational-record-examples/src/examples.hs b/relational-record-examples/src/examples.hs
index e3e4f395..7bacc7aa 100644
--- a/relational-record-examples/src/examples.hs
+++ b/relational-record-examples/src/examples.hs
@@ -1222,7 +1222,6 @@ run conn param rel = do
   records <- runRelation conn rel param
   mapM_ print records
   putStrLn ""
-  rollback conn
 
 runI :: (IConnection conn, ToSql SqlValue p)
      => conn -> p -> Insert p -> IO ()