Use fromList2 to implement fromListN in IsList

treeowl · treeowl · commit ace8f7fd88e5 · 2014-12-19T15:09:03.000-05:00
diff --git a/Data/Sequence.hs b/Data/Sequence.hs
@@ -1806,6 +1806,7 @@ fromList = Seq . mkTree 1 . map_elem
 instance GHC.Exts.IsList (Seq a) where
     type Item (Seq a) = a
     fromList = fromList
+    fromListN = fromList2
     toList = toList
 #endif
 
