@@ -169,7 +169,8 @@ betwixt a b c = do char a ; out <- c
169 char b <?> "closing '" ++ [b] ++ "'" ; return out
169 char b <?> "closing '" ++ [b] ++ "'" ; return out
171surround a z name p = do
171surround a z name p = do
172− char a ; v <- padded p
173+ v <- padded p
173 char z <?> unwords ["closing", name, show z]
174 char z <?> unwords ["closing", name, show z]