schedevr 0.1.0.5 → 0.1.0.6

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• schedevr.cabal +1/−1
• src/prog_graph/mkGraph.hs +2/−2

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

@@ -19,7 +19,7 @@ ratio :: Double ratio = unsafePerformIO $ do 	ex <- doesFileExist "ratio"-	if ex then read <$> readFile "ratio" else return 0+	if ex then read <$> readFile "ratio" else return 1  evrItemsName, evrProgressName :: [FilePath] evrItemsName = [@@ -60,7 +60,7 @@ 		esp = sortBy (on compare fst) $ map dayId $ lines espCnt 		di = accumSecond (+) 0 $ dayPoint ei es 		dip = accumSecond (+) 0 $ dayPoint ei esp-		cnv = getConverter (50, 100) (400, 200) di+		cnv = getConverter (50 * ratio, 100 * ratio) (400 * ratio, 200 * ratio) di 		pc = progPercent dip di 	f <- openField 	topleft f