@@ -50,11 +50,11 @@ prev (Loc r) =
50-- -- | Move the cursor to the first sibling.
50-- -- | Move the cursor to the first sibling.
51first :: forall a. Loc a -> Loc a
51first :: forall a. Loc a -> Loc a
52first l@(Loc r) =
52first l@(Loc r) =
53− case r.before of
53+ case reverse r.before of
55 c:cs -> Loc r { node = c
55 c:cs -> Loc r { node = c
56 , before = Nil
56 , before = Nil
57− , after = (reverse cs) <> r.after
57+ , after = cs <> r.after
60-- -- | Move the cursor to the last sibling.
60-- -- | Move the cursor to the last sibling.