You are now the owner of this repo.

bn-d / ppx_subliner / 120

120

push

github

web-flow 
Add deriver for enum (#30)

39 of 39 new or added lines in 8 files covered. (100.0%)

526 of 580 relevant lines covered (90.69%)

24.49 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

62.5
/src/error.ml
1 
open Ppxlib
2 









3



let f = Location.raise_errorf










4












5



let unsupported_type ~loc type_ { txt = name; loc = _ } =










6



  f ~loc "%s %s cannot be derived" type_ name




×







7












8



let field_type ~loc = f ~loc "unsupported field type"




2✔






9



let attribute_name ~loc = f ~loc "unexpected attribute name: %s"




1✔





10



let attribute_payload ~loc = f ~loc "payload of `%s` must be an expression"




2✔





11



let attribute_flag ~loc = f ~loc "flag cannot have any payload"




2✔





12



let attr_list_type ~loc = f ~loc "`%s` must be used with list type"




2✔






13



let enum_payload ~loc = f ~loc "enum variant cannot have any payload"




×







14












15



let unexpected ~loc =










16



  f ~loc "congratulation for triggering this `impossible` error"




×





















    

  • 

    •