From 72d2be3e6a6768fac4fabd1236f215a974b4f203 Mon Sep 17 00:00:00 2001
From: Eric Easley <eric@frontrowed.com>
Date: Mon, 4 Apr 2016 11:44:58 -0700
Subject: [PATCH] Fix test

---
 test/Test.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/test/Test.hs b/test/Test.hs
index 80c6784..619e539 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1396,10 +1396,11 @@ main = do
 
 
 insert' :: ( Functor m
-           , PersistStore (PersistEntityBackend val)
+           , BaseBackend backend ~ PersistEntityBackend val
+           , PersistStore backend
            , MonadIO m
            , PersistEntity val )
-        => val -> ReaderT (PersistEntityBackend val) m (Entity val)
+        => val -> ReaderT backend m (Entity val)
 insert' v = flip Entity v <$> insert v