Clean up all warnings (ghc 8.0.1) in DHT component.

1 files changed, 1 insertions, 12 deletions

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index 6bec665e..c22ca189 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -19,7 +19,6 @@
 {-# LANGUAGE CPP                        #-}
 {-# LANGUAGE NamedFieldPuns             #-}
 {-# LANGUAGE FlexibleInstances          #-}
-{-# LANGUAGE OverlappingInstances       #-}
 {-# LANGUAGE MultiParamTypeClasses      #-}
 {-# LANGUAGE BangPatterns               #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
@@ -166,7 +165,6 @@ import Data.ByteString.Lazy  as BL
 import Data.Char
 import Data.Convertible
 import Data.Default
-import Data.Foldable as F
 import Data.Hashable   as Hashable
 import Data.Int
 import Data.List as L
@@ -666,15 +664,6 @@ instance NFData PieceInfo where
 instance Default PieceInfo where
   def = PieceInfo 1 def
 
-class Lint a where
-   lint :: a -> Either String a
-
-instance Lint PieceInfo where
-  lint pinfo @ PieceInfo {..}
-    | BS.length (unHashList piPieceHashes) `rem` hashsize == 0
-    , piPieceLength >= 0 = return pinfo
-    |       otherwise    = Left undefined
-
 
 putPieceInfo :: Data.Torrent.Put PieceInfo
 putPieceInfo PieceInfo {..} cont =
@@ -898,7 +887,7 @@ instance BEncode POSIXTime where
   fromBEncode _            = decodingError $ "POSIXTime"
 
 -- TODO to bencoding package
-instance BEncode String where
+instance {-# OVERLAPPING #-} BEncode String where
   toBEncode = toBEncode . T.pack
   fromBEncode v = T.unpack <$> fromBEncode v