diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-08-26 05:12:18 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-08-26 05:12:18 +0400 |
| commit | 46bdd60f94fe2f9eedf6fc14146bccf41348e5bd (patch) | |
| tree | 377bbc62de1d3ef6a9af10cd96fa65330bde11e3 /src | |
| parent | 97a6f7ccc7fc87279e8046f9e49061619d8dcdd8 (diff) | |
+ Added tests for generic decode & record selectors.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Data/BEncode.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index 87321f2..e270525 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
| @@ -227,7 +227,8 @@ instance (GBEncodable a Dict, GBEncodable b Dict) | |||
| 227 | gto (a :*: b) = gto a <> gto b | 227 | gto (a :*: b) = gto a <> gto b |
| 228 | 228 | ||
| 229 | {-# INLINE gfrom #-} | 229 | {-# INLINE gfrom #-} |
| 230 | gfrom = error "gfrom: not implemented" | 230 | -- Just look at this! >.< |
| 231 | gfrom dict = (:*:) <$> gfrom dict <*> gfrom dict | ||
| 231 | 232 | ||
| 232 | 233 | ||
| 233 | instance (GBEncodable a e, GBEncodable b e) | 234 | instance (GBEncodable a e, GBEncodable b e) |