diff options
author | Sam T <pxqr.sta@gmail.com> | 2013-08-26 03:29:40 +0400 |
---|---|---|
committer | Sam T <pxqr.sta@gmail.com> | 2013-08-26 03:29:40 +0400 |
commit | 79961ca264157229409b2d4d70aa91999526a28e (patch) | |
tree | 11cf2a4a1699a7ebaad5d055adbaf14c82c1128d | |
parent | 8f275335d35dc56de90874825d9205e2c84dbd07 (diff) |
- Remove unused extensions.
-rw-r--r-- | src/Data/BEncode.hs | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index aab814a..a08b8be 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
@@ -54,11 +54,7 @@ | |||
54 | {-# LANGUAGE DefaultSignatures #-} | 54 | {-# LANGUAGE DefaultSignatures #-} |
55 | {-# LANGUAGE FlexibleContexts #-} | 55 | {-# LANGUAGE FlexibleContexts #-} |
56 | {-# LANGUAGE FlexibleInstances #-} | 56 | {-# LANGUAGE FlexibleInstances #-} |
57 | |||
58 | -- TODO use TF | ||
59 | {-# LANGUAGE MultiParamTypeClasses #-} | 57 | {-# LANGUAGE MultiParamTypeClasses #-} |
60 | {-# LANGUAGE FunctionalDependencies #-} | ||
61 | {-# LANGUAGE UndecidableInstances #-} | ||
62 | #endif | 58 | #endif |
63 | 59 | ||
64 | module Data.BEncode | 60 | module Data.BEncode |
@@ -107,7 +103,6 @@ module Data.BEncode | |||
107 | import Control.Applicative | 103 | import Control.Applicative |
108 | import Control.Monad | 104 | import Control.Monad |
109 | import Data.Int | 105 | import Data.Int |
110 | import Data.List as L | ||
111 | import Data.Maybe (mapMaybe) | 106 | import Data.Maybe (mapMaybe) |
112 | import Data.Monoid -- (mempty, (<>)) | 107 | import Data.Monoid -- (mempty, (<>)) |
113 | import Data.Foldable (foldMap) | 108 | import Data.Foldable (foldMap) |
@@ -230,11 +225,7 @@ instance (GBEncodable a e, GBEncodable b e) | |||
230 | instance (Selector s, GBEncodable f BEncode) | 225 | instance (Selector s, GBEncodable f BEncode) |
231 | => GBEncodable (M1 S s f) Dict where | 226 | => GBEncodable (M1 S s f) Dict where |
232 | {-# INLINE gto #-} | 227 | {-# INLINE gto #-} |
233 | gto s @ (M1 x) | 228 | gto s @ (M1 x) = BC.pack (selName s) `M.singleton` gto x |
234 | | True || L.null sel = BC.pack sel `M.singleton` gto x | ||
235 | -- | otherwise = undefined | ||
236 | where | ||
237 | sel = selName s | ||
238 | 229 | ||
239 | {-# INLINE gfrom #-} | 230 | {-# INLINE gfrom #-} |
240 | gfrom = undefined | 231 | gfrom = undefined |