fix tests

src/Gyehoek/Sexp/Grammar/Base.hs

@@ -107,7 +107,17 @@ list
 list = listWithIndentation Ordinary
 
 -- |
--- >>> decodeTest @(Int,Int) (with \g -> dottedList (el int) int >>> g) "(1 . 2)"
+-- >>> let grammar = with \g -> dottedList (el int) int >>> g
+-- >>> decodeTest @(Int,Int) grammar "(1 . 2)"
+-- ( 1
+-- , 2
+-- )
+-- >>> let grammar = with \g -> dottedList (el int >>> el int) int >>> g
+-- >>> decodeTest @(Int,Int,Int) grammar "(1 2 . 3)"
+-- ( 1
+-- , 2
+-- , 3
+-- )
 dottedList
   :: forall t t' t''. G (ListContext :- t) (ListContext :- t')
   -> G (Datum :- t') t''