From 458ecc9c192d738b9db3fa5632421e8a2a5da1f5 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 11 May 2018 14:17:52 -0700
Subject: [PATCH] dev.hs fix

[ci skip]
---
 dev.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/dev.hs b/dev.hs
index 842d07879..4da06c881 100755
--- a/dev.hs
+++ b/dev.hs
@@ -8,6 +8,7 @@
 -- import Control.Monad.Except
 import Criterion.Main
 -- import Data.Text.Lazy as LT
+import qualified Data.Text as T
 -- import System.Environment
 import System.TimeIt      (timeItT)
 import Text.Printf
@@ -46,9 +47,6 @@ timeit name action = do
   printf "[%.2fs]\n" t
   return (t,a)
 
-timeReadJournal :: String -> String -> IO (Double, Journal)
-timeReadJournal msg s = timeit msg $ either error id <$> readJournal def Nothing s
-
 main = do
   -- putStrLn $ regexReplaceCI "^aa" "xx" "aa:bb:cc:dd:ee"
 
@@ -132,6 +130,9 @@ main = do
 
   -- return ()
 
+--timeReadJournal :: String -> T.Text -> IO (Double, Journal)
+--timeReadJournal msg s = timeit msg $ either error id <$> readJournal def Nothing s
+
   -- benchmark timeclock parsing
   -- s <- readFile inputtimeclock
   -- putStrLn $ show $ length s