Support dlist 1.0

snoyberg · Jul 19, 2020 · 7f76397 · 7f76397
1 parent 8d454ff
commit 7f76397
Show file tree

Hide file tree

Showing 3 changed files with 12 additions and 2 deletions.
diff --git a/mono-traversable-instances/ChangeLog.md b/mono-traversable-instances/ChangeLog.md
@@ -1,3 +1,9 @@
+# Changelog for mono-traversable-instances
+
+## 0.1.1.0
+
+* Support dlist 1.0
+
 ## 0.1.0.0
 
 * Initial release
diff --git a/mono-traversable-instances/package.yaml b/mono-traversable-instances/package.yaml
@@ -1,5 +1,5 @@
 name:        mono-traversable-instances
-version:     0.1.0.0
+version:     0.1.1.0
 synopsis:    Extra typeclass instances for mono-traversable
 description: See docs and README at <http://www.stackage.org/package/mono-traversable-instance>
 category:    Data
@@ -18,7 +18,7 @@ dependencies:
 - semigroupoids >=3.0
 - comonad >=3.0.3
 - vector-instances
-- dlist >=0.6 && <1.0
+- dlist >=0.6 && <1.1
 - dlist-instances ==0.1.*
 - transformers
 - semigroups

diff --git a/mono-traversable-instances/src/Data/MonoTraversable/Instances.hs b/mono-traversable-instances/src/Data/MonoTraversable/Instances.hs
@@ -66,7 +66,11 @@ instance SemiSequence (DList a) where
 instance IsSequence (DList a) where
     fromList = DL.fromList
     replicate = DL.replicate
+#if MIN_VERSION_dlist(1,0,0)
+    tailEx = DL.fromList . DL.tail
+#else
     tailEx = DL.tail
+#endif
     {-# INLINE fromList #-}
     {-# INLINE replicate #-}
     {-# INLINE tailEx #-}