1 files changed, 1 insertions, 1 deletions
diff --git a/demo/crud3.ur b/demo/crud3.ur
index c336af30..5be035dd 100644
--- a/demo/crud3.ur
+++ b/demo/crud3.ur
@@ -20,7 +20,7 @@ open Crud.Make(struct
                                            <textbox{#B}/>
                                          </subform>
                                        </xml>),
-                                       Parse = (fn p => p.A ^ p.B),
+                                       Parse = (fn p : {A : string, B : string} => p.A ^ p.B),
                                        Inject = _
                                       }
                               }