make hlistAt public

optics-dev · May 25, 2015 · b8567a6 · b8567a6
1 parent 4ac891d
commit b8567a6
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/generic/src/main/scala/monocle/generic/HList.scala b/generic/src/main/scala/monocle/generic/HList.scala
@@ -10,6 +10,10 @@ object hlist extends HListInstances
 
 trait HListInstances {
 
+  def hListAt[S <: HList, A](n : Nat)(implicit evAt: At.Aux[S, n.N, A],
+                                          evReplace: ReplaceAt.Aux[S, n.N, A, (A, S)]): Lens[S, A]  =
+    Lens[S, A](_.at(n))(a => hlist => hlist.updatedAt(n, a))
+
   def toHList[S, A <: HList](implicit gen: Generic.Aux[S, A]): Iso[S, A] =
     Iso[S, A]{ s => gen.to(s)}{l => gen.from(l)}
 
@@ -64,8 +68,4 @@ trait HListInstances {
     def sixth = hListAt(shapeless.nat._5)
   }
 
-  private def hListAt[S <: HList, A](n : Nat)(implicit evAt: At.Aux[S, n.N, A],
-                                                  evReplace: ReplaceAt.Aux[S, n.N, A, (A, S)]): Lens[S, A]  =
-    Lens[S, A](_.at(n))(a => hlist => hlist.updatedAt(n, a) )
-
 }