@@ -12,7 +12,7 @@ infixr 5 <+
12||| strSnoc "" 'A'
12||| strSnoc "" 'A'
14strSnoc : String -> Char -> String
14strSnoc : String -> Char -> String
15−strSnoc s c = s ++ (singleton 'c')
15+strSnoc s c = s ++ (singleton c)
17||| Alias of `strSnoc`
17||| Alias of `strSnoc`
@@ -28,4 +28,4 @@ strSnoc s c = s ++ (singleton 'c')
28||| 'A' <+ "AB"
28||| 'A' <+ "AB"
30(<+) : Char -> String -> String
30(<+) : Char -> String -> String
31−(<+) = strCons
31+(<+) = strCons