diff --git a/ffi/glfw-export.c b/ffi/glfw-export.c
index 6028a27..abfa7d1 100644
--- a/ffi/glfw-export.c
+++ b/ffi/glfw-export.c
@@ -51,3 +51,7 @@ void setClipboardString (GLFWwindow *window, const char *copyString) {
   glfwSetClipboardString(window, copyString);
 }
 
+
+double getTime() {
+  return glfwGetTime();
+}
diff --git a/ffi/glfw-import.sml b/ffi/glfw-import.sml
index caabbb6..1cb9bd5 100644
--- a/ffi/glfw-import.sml
+++ b/ffi/glfw-import.sml
@@ -18,6 +18,7 @@ struct
 
   (* GLFW functions. *)
   val init = _import "init" public : unit -> unit;
+  val getTime = _import "getTime" public : unit -> real;
   val windowHint = _import "windowHint" public : int * int -> unit;
   val createWindow =
     _import "createWindow" public : int * int * string -> window;