slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 Control.Monad.Except
import Criterion.Main import Criterion.Main
-- import Data.Text.Lazy as LT -- import Data.Text.Lazy as LT
import qualified Data.Text as T
-- import System.Environment -- import System.Environment
import System.TimeIt (timeItT) import System.TimeIt (timeItT)
import Text.Printf import Text.Printf
@ -46,9 +47,6 @@ timeit name action = do
printf "[%.2fs]\n" t printf "[%.2fs]\n" t
return (t,a) return (t,a)
timeReadJournal :: String -> String -> IO (Double, Journal)
timeReadJournal msg s = timeit msg $ either error id <$> readJournal def Nothing s
main = do main = do
-- putStrLn $ regexReplaceCI "^aa" "xx" "aa:bb:cc:dd:ee" -- putStrLn $ regexReplaceCI "^aa" "xx" "aa:bb:cc:dd:ee"
@ -132,6 +130,9 @@ main = do
-- return () -- return ()
--timeReadJournal :: String -> T.Text -> IO (Double, Journal)
--timeReadJournal msg s = timeit msg $ either error id <$> readJournal def Nothing s
-- benchmark timeclock parsing -- benchmark timeclock parsing
-- s <- readFile inputtimeclock -- s <- readFile inputtimeclock
-- putStrLn $ show $ length s -- putStrLn $ show $ length s