1 import Control.Applicative( (<$>), (<*>) )
2 import Data.DateTime( DateTime(..), parseDateTime, formatDateTime, startOfTime, diffSeconds )
3 import Data.List.Split( splitOn )
4 import Data.List( zipWith4, transpose )
5 import Data.Maybe( fromJust, fromMaybe )
6 import Data.Monoid( mempty )
7 import Data.Time.Clock( secondsToDiffTime )
8 import Options.Applicative( execParser, info, strOption, long )
9 import System.Environment( getArgs )
10 import HMSTime( HMSTime(..), secondsToHMS )
11 import Diddo.Entry( DiddoEntry(..) )
13 data DiddoOpts = DiddoOpts
18 mainWithOpts :: DiddoOpts -> IO ()
19 mainWithOpts opts = do
22 ] <- transpose . map (splitOn ";") . lines <$> readFile (inFile opts)
23 let utcTimes_finish = map (fromMaybe (error "Input data broken.") . parseDateTime (inDateFmt opts)) timestrings_finish
24 entry_deltas_HMMSS = zipWith (\x y -> secondsToHMS $ diffSeconds x y) utcTimes_finish (startOfTime : init utcTimes_finish)
25 diddos_summarized = zipWith4 DiddoEntry ("" : init timestrings_finish) timestrings_finish entry_deltas_HMMSS entries
27 mapM_ print diddos_summarized
30 main = execParser opts >>= mainWithOpts
32 opts = info parser mempty
34 <$> strOption ( long "indateform" )
35 <*> strOption ( long "infile" )