diff src/mono_fooify.sig @ 2256:6f2ea4ed573a

Pure caching sort of works.
author Ziv Scully <ziv@mit.edu>
date Sun, 27 Sep 2015 03:52:14 -0400
parents 44ae2254f8fb
children f81f1930c5d6
line wrap: on
line diff
--- a/src/mono_fooify.sig	Mon Sep 21 16:45:59 2015 -0400
+++ b/src/mono_fooify.sig	Sun Sep 27 03:52:14 2015 -0400
@@ -19,9 +19,6 @@
     val decls : t -> Mono.decl list
 
     val freshName : t -> int * t
-
-    (* Set at the end of [Monoize]. *)
-    val canonical : t ref
 end
 
 (* General form used in [Monoize]. *)
@@ -32,7 +29,9 @@
                 -> Mono.exp * Mono.typ
                 -> Mono.exp * Fm.t
 
-(* Easy-to-use special case used in [Sqlcache]. *)
-val urlify : MonoEnv.env -> Mono.exp * Mono.typ -> Mono.exp
+(* Easy-to-use interface in [Sqlcache]. Uses [Fm.canonical]. *)
+val canonicalFm : Fm.t ref (* Set at the end of [Monoize]. *)
+val urlify : MonoEnv.env -> Mono.exp * Mono.typ -> Mono.exp option
+val getNewFmDecls : unit -> Mono.decl list
 
 end