add List <~> IList

xuwei-k · xuwei-k · commit ffdeb1b043f5 · 2015-03-10T16:05:03.000+09:00
diff --git a/core/src/main/scala/scalaz/IList.scala b/core/src/main/scala/scalaz/IList.scala
@@ -494,6 +494,13 @@ object IList extends IListInstances with IListFunctions{
     else go(n, empty)
   }
 
+  import Isomorphism._
+
+  val listIListIso: List <~> IList =
+    new IsoFunctorTemplate[List, IList] {
+      def to[A](fa: List[A]) = fromList(fa)
+      def from[A](fa: IList[A]) = fa.toList
+    }
 }
 
 sealed trait IListFunctions

Original file line number	Diff line number	Diff line change
`@@ -494,6 +494,13 @@ object IList extends IListInstances with IListFunctions{`
`494`	`494`	`else go(n, empty)`
`495`	`495`	`}`
`496`	`496`
	`497`	`+ import Isomorphism._`
	`498`	`+`
	`499`	`+ val listIListIso: List <~> IList =`
	`500`	`+ new IsoFunctorTemplate[List, IList] {`
	`501`	`+ def to[A](fa: List[A]) = fromList(fa)`
	`502`	`+ def from[A](fa: IList[A]) = fa.toList`
	`503`	`+ }`
`497`	`504`	`}`
`498`	`505`
`499`	`506`	`sealed trait IListFunctions`