Add a small benchmark code

firephil · Mar 15, 2021 · 51510d8 · 51510d8
1 parent 019ac46
commit 51510d8
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/app/Time.hs b/app/Time.hs
@@ -0,0 +1,11 @@
+module Time where
+import Control.Exception
+import Formatting
+import Formatting.Clock
+import System.Clock
+
+execute f =
+  do start <- getTime Monotonic
+     evaluate (f)
+     end <- getTime Monotonic
+     fprint (timeSpecs % "\n") start end