diff options
| author | joe <joe@jerkface.net> | 2017-01-06 18:33:28 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-01-06 18:33:28 -0500 |
| commit | 27957be6c747a9ce4a98273e0099f15dd1a6f163 (patch) | |
| tree | d960993cc66fb779d248c9f739060e43d32129b3 | |
| parent | dafb6cf53cb919c0c45ff445f5f89129ddaa4598 (diff) | |
build fix
| -rw-r--r-- | src/Data/BEncode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index 5c93e2f..86e813d 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
| @@ -251,7 +251,7 @@ instance (GBEncodable a e, GBEncodable b e) | |||
| 251 | selRename :: String -> String | 251 | selRename :: String -> String |
| 252 | selRename = dropWhile ('_'==) | 252 | selRename = dropWhile ('_'==) |
| 253 | 253 | ||
| 254 | gfromM1S :: forall c. Selector c | 254 | gfromM1S :: forall f i p c. Selector c |
| 255 | => GBEncodable f BValue | 255 | => GBEncodable f BValue |
| 256 | => BDict -> Result (M1 i c f p) | 256 | => BDict -> Result (M1 i c f p) |
| 257 | gfromM1S dict | 257 | gfromM1S dict |