From 09fc7f2347e6bbfd16831fa58a28984b9f8ca68e Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sun, 29 Sep 2013 08:56:30 +0400 Subject: Hide type synonims from the main API --- bench/Main.hs | 1 + src/Data/BEncode.hs | 9 +-------- 2 files changed, 2 insertions(+), 8 deletions(-) diff --git a/bench/Main.hs b/bench/Main.hs index d60c0d7..4953a06 100644 --- a/bench/Main.hs +++ b/bench/Main.hs @@ -22,6 +22,7 @@ import Data.AttoBencode as B import Data.AttoBencode.Parser as B import "bencoding" Data.BEncode as C import "bencoding" Data.BEncode.Internal as C +import "bencoding" Data.BEncode.Types as C instance NFData A.BEncode where rnf (A.BInt i) = rnf i diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index 353d66e..81010b6 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs @@ -57,14 +57,7 @@ #endif module Data.BEncode - ( -- * Datatype - BInteger - , BString - , BList - , BDict - , BKey - - , BValue (..) + ( BValue (..) -- * Conversion , BEncode (..) -- cgit v1.2.3