[from now] 2014/04/11 00:51:49

[36mdiff --git a/src/Main.hs b/src/Main.hs[m
[36mindex eea9b54..d9492a2 100644[m
[36m--- a/src/Main.hs[m
[36m+++ b/src/Main.hs[m
[34m@@ -16,7 +16,7 @@[m[32m [m[33mmain = do[m
[32m     let dinner = defaultNutrient {calorie = Just 363, protein = Just 16.3, fat = Just 5.8, carbon = Just 59.1}[m
[32m     let dinner2 = defaultNutrient {calorie = Just 262, protein = Just 4.3, fat = Just 16.2, carbon = Just 24.7}[m
[32m     let ice = defaultNutrient {calorie = Just 78, protein = Just 0.7, fat = Just 4.8, carbon = Just 8.1}[m
[1m-    let dinner3 = ice `nMal` 2[m
[4m+[m[4m    let dinner3 = ice `nMal` 3[m
[32m     let total = show $ foldl1 nAdd [breakFirst, lunch1, lunch2, dinner, dinner2, dinner3][m
[32m     writeFile "/Users/theatrical/learning_haskell/calorie_hs/daily_data/20140410.txt" total[m
[32m     putStrLn . show $ (applyBothSide (+) $ (*24) . length ) "1234567" "89"[m
[from now] 2014/04/11 00:52:52

[36mdiff --git a/daily_data/20140410.txt b/daily_data/20140410.txt[m
[36mindex 1cff210..d9a6dad 100644[m
[36m--- a/daily_data/20140410.txt[m
[36m+++ b/daily_data/20140410.txt[m
[34m@@ -1 +1 @@[m
[1m-Nutrient {calorie = Just 1539.0, protein = Just 61.0, fat = Just 53.0, carbon = Just 202.26}[m
[32m\ No newline at end of file[m
[4m+[m[4mNutrient {calorie = Just 1617.0, protein = Just 61.699997, fat = Just 57.800003, carbon = Just 210.36}[m
[32m\ No newline at end of file[m