summaryrefslogtreecommitdiff
path: root/src/Data/Bytes/Get.hs
diff options
context:
space:
mode:
authorryanglscott <>2017-04-27 01:16:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-04-27 01:16:00 (GMT)
commite98d468033d7dc4707d532e73adcf1303440756e (patch)
tree709fcc766af2c2048fafd743fc6f9d6e885093bf /src/Data/Bytes/Get.hs
parent95132dc1f30f9f33c6ec8a35895b9a2c79a74f5b (diff)
version 0.15.30.15.3
Diffstat (limited to 'src/Data/Bytes/Get.hs')
-rw-r--r--src/Data/Bytes/Get.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Data/Bytes/Get.hs b/src/Data/Bytes/Get.hs
index 816a6be..ede0304 100644
--- a/src/Data/Bytes/Get.hs
+++ b/src/Data/Bytes/Get.hs
@@ -89,7 +89,8 @@ class (Integral (Remaining m), Monad m, Applicative m) => MonadGet m where
-- Note that this forces the rest of the input.
remaining :: m (Remaining m)
#ifndef HLINT
- default remaining :: (MonadTrans t, MonadGet n, m ~ t n) => m (Remaining n)
+ default remaining :: (MonadTrans t, MonadGet n, m ~ t n, Remaining m ~ Remaining n)
+ => m (Remaining m)
remaining = lift remaining
#endif