schedevr 0.1.0.2 → 0.1.0.3

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• schedevr.cabal +1/−1
• src/mkschd/marge-schedule.hs +2/−2

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                schedevr-version:             0.1.0.2+version:             0.1.0.3 synopsis:            Marge schedules and show EVR -- description:          license:             BSD3

@@ -10,7 +10,7 @@ main :: IO () main = do 	d <- localDay . zonedTimeToLocalTime <$> getZonedTime-	args <- getArgs+	"-s" : s : args <- getArgs 	let (ilfps, "--" : fps) = span (/= "--") args 	tbl <- concat <$> mapM readFile ilfps 	items <- mapM (fmap parse . readFile) fps@@ -18,4 +18,4 @@ --	cnt2 <- readFile "test2.schd" --	putStr $ showOutputs $ fromItem2 (read "2014-04-22") (parse cnt1) (parse cnt2) 	putStr $ showOutputs $ map (convertOutput tbl) $-		fromItemN (read "2014-04-17") items+		fromItemN (read s) items