[from now] 2014/04/10 23:23:04

[36mdiff --git a/daily_data/20140409.txt b/daily_data/20140409.txt[m
[36mindex a0151f7..14b90d7 100644[m
[36m--- a/daily_data/20140409.txt[m
[36m+++ b/daily_data/20140409.txt[m
[34m@@ -1,2 +1 @@[m
[1m-Nutrient {calorie = Just 1116.4, protein = Just 89.2, fat = Just 25.008, carbon = Just 130.075}[m
[1m-workout : Just 910.0[m
[4m+[m[4mNutrient {calorie = Just 1383.0, protein = Just 59.6, fat = Just 43.4, carbon = Just 186.06}[m[7m[m
[32m\ No newline at end of file[m
[36mdiff --git a/daily_data/20140410.txt b/daily_data/20140410.txt[m
[36mdeleted file mode 100644[m
[36mindex 66119eb..0000000[m
[36m--- a/daily_data/20140410.txt[m
[36m+++ /dev/null[m
[34m@@ -1 +0,0 @@[m
[1m-Nutrient {calorie = Just 1121.0, protein = Just 55.3, fat = Just 27.2, carbon = Just 161.36}[m
[32m\ No newline at end of file[m
[from now] 2014/04/10 23:23:30

[36mdiff --git a/src/Main.hs b/src/Main.hs[m
[36mindex 039010a..2bc701c 100644[m
[36m--- a/src/Main.hs[m
[36m+++ b/src/Main.hs[m
[34m@@ -1,7 +1,7 @@[m
[32m module Main where[m
[32m [m
[32m import Meal[m
[1m-import Workout[m
[4m+[m[4m--import Workout[m
[32m import Util.Util[m
[32m --import Data.Time[m
[32m --import Data.Time.Lens[m
[34m@@ -14,6 +14,7 @@[m[32m [m[33mmain = do[m
[32m     let lunch1 = defaultNutrient {calorie = Just 319, protein = Just 4.9, fat = Just 7.9, carbon = Just 57.4}[m
[32m     let lunch2 = defaultNutrient {calorie = Just (107 * 2), protein = Just (14.4 * 2), fat = Just (4.8 * 2), carbon = Just (1.48 * 2)}[m
[32m     let dinner = defaultNutrient {calorie = Just 363, protein = Just 16.3, fat = Just 5.8, carbon = Just 59.1}[m
[1m-    let total = show $ foldl1 nAdd [breakFirst, lunch1, lunch2, dinner][m
[1m-    writeFile "c:/HOME/learning_haskell/calorie/daily_data/20140410.txt" total[m
[4m+[m[4m    let dinner2 = defaultNutrient {calorie = Just 262, protein = Just 4.3, fat = Just 16.2, carbon = Just 24.7}[m
[4m+[m[4m    let total = show $ foldl1 nAdd [breakFirst, lunch1, lunch2, dinner, dinner2][m
[4m+[m[4m    writeFile "/Users/theatrical/learning_haskell/calorie_hs/daily_data/20140409.txt" total[m
[32m     putStrLn . show $ (applyBothSide (+) $ (*24) . length ) "1234567" "89"[m