comby-tools/comby
1
1
Fork 0
mirror of https://github.com/comby-tools/comby.git synced 2024-08-16 16:50:37 +03:00
Code Issues Packages Projects Releases Wiki Activity

fix typos and test

Browse Source
This commit is contained in:
Rijnard van Tonder 2021-05-19 01:09:56 -07:00
parent 81bfd5f2d6
commit 22f98a193a
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/kernel/matchers/template.ml
View File

@ -78,20 +78,20 @@ module Make (Metasyntax : Types.Metasyntax.S) = struct
| "file.path" -> FilePath
| "lowercase" -> Lowercase
| "UPPERCASE" -> Uppercase
| "capitalize" -> Capitalize
| "Capitalize" -> Capitalize
| "uncapitalize" -> Uncapitalize
| "UpperCamelCase" -> UpperCamelCase
| "lowerCamelCase" -> LowerCamelCase
| "UPPER_SNAKE_CASE" -> UpperSnakeCase
| "lower_snake_case" -> LowerSnakeCase
| _ -> failwith "invalid attribute"
| s -> failwith @@ Format.sprintf "invalid attribute %S" s
let attribute_access () =
char '.' *> choice
[ string "value"
; string "length"
(*
; string "type"
(*
; string "file.name"
; string "file.path"
*)
@ -101,8 +101,8 @@ module Make (Metasyntax : Types.Metasyntax.S) = struct
; string "uncapitalize"
; string "UpperCamelCase"
; string "lowerCamelCase"
; string "UPPER_SNALE_CASE"
; string "lowers_nake_case"
; string "UPPER_SNAKE_CASE"
; string "lower_snake_case"
]
<* not_followed_by (Omega_parser_helper.alphanum)