From 8949c17c34ee82f3279055a42b13c3832599f5d6 Mon Sep 17 00:00:00 2001
From: Boyd Stephen Smith Jr <bss@iguanasuicide.net>
Date: Sat, 23 Nov 2013 14:02:28 -0600
Subject: [PATCH] Have default trade use CryptsyNum.

---
 Cryptsy/API/Public/Trade.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Cryptsy/API/Public/Trade.hs b/Cryptsy/API/Public/Trade.hs
index f1d9a4e..ce6773a 100644
--- a/Cryptsy/API/Public/Trade.hs
+++ b/Cryptsy/API/Public/Trade.hs
@@ -1,6 +1,7 @@
 module Cryptsy.API.Public.Trade
 	( GTrade(..), Trade
 	, withComponents, withText
+	, module Cryptsy.API.Public
 	-- |Re-exported from Data.Text
 	, Text
 	-- |Re-exported from Data.Aeson
@@ -23,6 +24,9 @@ import Data.Aeson
 	)
 import Data.Aeson.Types (Parser)
 
+-- this package
+import Cryptsy.API.Public (CryptsyNum(..))
+
 data GTrade dt p q t = Trade
 	{ id :: Text
 	, time :: dt
@@ -30,7 +34,7 @@ data GTrade dt p q t = Trade
 	, quantity :: q
 	, total :: t
 	} deriving Show
-type Trade = GTrade Text Text Text Text
+type Trade = GTrade Text CryptsyNum CryptsyNum CryptsyNum
 
 instance (FromJSON dt, FromJSON p, FromJSON q, FromJSON t) =>
 	FromJSON (GTrade dt p q t)
-- 
2.11.4.GIT