From 5bf4d49718b5b336befc5f5406eb22c17aa03fe8 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Fri, 29 Nov 2013 19:15:08 +0400
Subject: Fix all -Wall suggestion

---
 src/Data/Torrent/Client.hs | 7 +++----
 src/Data/Torrent/Magnet.hs | 1 +
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/Data/Torrent')

diff --git a/src/Data/Torrent/Client.hs b/src/Data/Torrent/Client.hs
index f21a5e92..122f779d 100644
--- a/src/Data/Torrent/Client.hs
+++ b/src/Data/Torrent/Client.hs
@@ -20,6 +20,7 @@
 --   capabilities (such as supported enchancements), this should be
 --   done using 'Network.BitTorrent.Extension'!
 --
+{-# OPTIONS -fno-warn-orphans #-}
 module Data.Torrent.Client
        ( ClientImpl (..)
        , ClientInfo (..)
@@ -29,9 +30,7 @@ module Data.Torrent.Client
 import Data.Default
 import Data.List as L
 import Data.List.Split as L
-import Data.Monoid
 import Data.String
-import Data.Text as T
 import Data.Version
 import Text.PrettyPrint hiding ((<>))
 import Text.PrettyPrint.Class
@@ -194,7 +193,7 @@ libClientInfo = ClientInfo IlibHSbittorrent version
 {-----------------------------------------------------------------------
 --  For torrent file
 -----------------------------------------------------------------------}
-
+{-
 renderImpl :: ClientImpl -> Text
 renderImpl = T.pack . L.tail . show
 
@@ -206,7 +205,7 @@ renderClientInfo ClientInfo {..} = renderImpl ciImpl <> "/" <> renderVersion ciV
 
 parseClientInfo :: Text -> ClientImpl
 parseClientInfo t = undefined
-
+-}
 {-
 -- code used for generation; remove it later on
 
diff --git a/src/Data/Torrent/Magnet.hs b/src/Data/Torrent/Magnet.hs
index daa09fbb..887e8379 100644
--- a/src/Data/Torrent/Magnet.hs
+++ b/src/Data/Torrent/Magnet.hs
@@ -18,6 +18,7 @@
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE TypeSynonymInstances  #-}
 {-# LANGUAGE DeriveDataTypeable    #-}
+{-# OPTIONS -fno-warn-orphans      #-}
 module Data.Torrent.Magnet
        ( -- * Magnet
          Magnet(..)
-- 
cgit v1.2.3