Skip to content
Permalink
Browse files

dev.hs fix

[ci skip]
  • Loading branch information...
simonmichael committed May 11, 2018
1 parent 5bc5bb5 commit 458ecc9c192d738b9db3fa5632421e8a2a5da1f5
Showing with 4 additions and 3 deletions.
  1. +4 −3 dev.hs
7 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

0 comments on commit 458ecc9

Please sign in to comment.
You can’t perform that action at this time.