fix composability bug

1 files changed, 7 insertions, 0 deletions

diff --git a/test/AccessorTest.hs b/test/AccessorTest.hs
index 861a7a4..39a619a 100644
--- a/test/AccessorTest.hs
+++ b/test/AccessorTest.hs
@@ -25,6 +25,13 @@ testListSet_3 = TestCase (assertEqual "list set 3" expect result) where
     in over (_1 #> self) (+1) lst
   expect = [[1,2,3],[5,6,7],[7,8,9]]
 
+testListSet_4 :: Test
+testListSet_4 = TestCase (assertEqual "list set 4" expect result) where
+  result =
+    let lst = [[[1,2,3],[4,5,6],[7,8,9]]] :: [[[Int]]]
+    in set (_0 # _1 # _1) 42 lst
+  expect = [[[1,2,3],[4,42,6],[7,8,9]]]
+
 testTuple_1 :: Test
 testTuple_1 = TestCase (assertEqual "tuple 1" expect result) where
   result  = view (self #> sndAcc) $ Just (1 :: Int, 42 :: Int)