simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-24 19:02:46 +03:00
Code Issues Projects Releases Wiki Activity

dev.hs fix

Browse Source 
[ci skip]
This commit is contained in:
Simon Michael 2018-05-11 14:17:52 -07:00
parent 5bc5bb5533
commit 458ecc9c19
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dev.hs
View File

@ -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