1 files changed, 1 insertions, 0 deletions

diff --git a/src/Network/BitTorrent/Exchange.hs b/src/Network/BitTorrent/Exchange.hs
index dd1f9d0b..2173cf8b 100644
--- a/src/Network/BitTorrent/Exchange.hs
+++ b/src/Network/BitTorrent/Exchange.hs
@@ -45,6 +45,7 @@ import Data.Torrent
 data Event = Available Bitfield
            | Want
            | Block
+             deriving Show
 
 {-----------------------------------------------------------------------
     Peer wire