From 6ef19663cf7b4c2e4e99296115331ad7a017d117 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Fri, 27 Jan 2012 12:48:33 -0300
Subject: [PATCH] show instance for AccessMode

---
 Database/MongoDB/Query.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs
index 44bd39d..7ca3049 100644
--- a/Database/MongoDB/Query.hs
+++ b/Database/MongoDB/Query.hs
@@ -88,6 +88,7 @@ data AccessMode =
 	 ReadStaleOk  -- ^ Read-only action, reading stale data from a slave is OK.
 	| UnconfirmedWrites  -- ^ Read-write action, slave not OK, every write is fire & forget.
 	| ConfirmWrites GetLastError  -- ^ Read-write action, slave not OK, every write is confirmed with getLastError.
+    deriving Show
 
 type GetLastError = Document
 -- ^ Parameters for getLastError command. For example @[\"w\" =: 2]@ tells the server to wait for the write to reach at least two servers in replica set before acknowledging. See <http://www.mongodb.org/display/DOCS/Last+Error+Commands> for more options.