[from now] 2014/04/16 23:17:56

[36mdiff --git a/daily_data/20140416.txt b/daily_data/20140416.txt[m
[36mindex 56b3679..4a3bde6 100644[m
[36m--- a/daily_data/20140416.txt[m
[36m+++ b/daily_data/20140416.txt[m
[34m@@ -1,3 +1,7 @@[m
[32m "Meal {name = Just \"\\130\\169\\130\\194\\130\\199\\130\\241\\130\\168\\130\\201\\130\\172\\130\\232\", nutrient = Nutrient {calorie = Just 332.0, protein = Just 7.5, fat = Just 5.4, carbon = Just 63.4}, date = Just 2014-04-16 09:17:31.6319375 \147\140\139\158 (\149W\143\128\142\158)}"[m
[32m  "Meal {name = Just \"\\130\\220\\130\\162\\130\\169\\150\\161\\149t\", nutrient = Nutrient {calorie = Just 128.0, protein = Just 19.2, fat = Just 2.0, carbon = Just 8.3}, date = Just 2014-04-16 12:16:24.472475 \147\140\139\158 (\149W\143\128\142\158)}"[m
[4m+[m[4m "Meal {name = Just \"haagen dazs Crispy Sandwich\", nutrient = Nutrient {calorie = Just 267.0, protein = Just 3.0, fat = Just 19.1, carbon = Just 20.7}, date = Just 2014-04-16 20:21:59.720078 JST}"[m
[4m+[m[4m "Meal {name = Just \"teritama sandwich\", nutrient = Nutrient {calorie = Just 248.0, protein = Just 12.3, fat = Just 8.7, carbon = Just 29.8}, date = Just 2014-04-16 20:22:55.722779 JST}"[m
[4m+[m[4m "Meal {name = Just \"haagen-dazz green tea\", nutrient = Nutrient {calorie = Just 163.0, protein = Just 3.3, fat = Just 10.1, carbon = Just 14.7}, date = Just 2014-04-16 22:34:36.140968 JST}"[m
[4m+[m[4m "Meal {name = Just \"yasai soup\", nutrient = Nutrient {calorie = Just 300.0, protein = Just 15.0, fat = Just 12.0, carbon = Just 0.5}, date = Just 2014-04-16 22:57:23.643728 JST}"[m
[32m  [m
[32m\ No newline at end of file[m
[36mdiff --git a/src/Main b/src/Main[m
[36mindex fb6c6d6..36097f1 100755[m
Binary files a/src/Main and b/src/Main differ
[36mdiff --git a/src/Main.hs b/src/Main.hs[m
[36mindex 79bcd91..f12d1e5 100644[m
[36m--- a/src/Main.hs[m
[36m+++ b/src/Main.hs[m
[34m@@ -32,11 +32,11 @@[m[32m [m[33mmain = do[m
[32m     (cmd:_) <- getArgs[m
[32m     let windows = "C:/HOME/learning_haskell/calorie/daily_data"[m
[32m     let mac = "/Users/theatrical/learning_haskell/calorie_hs/daily_data"[m
[1m-    file <- pure (\x -> windows ++ "/" ++ x ++ ".txt") <*> filename[m
[4m+[m[4m    file <- pure (\x -> mac ++ "/" ++ x ++ ".txt") <*> filename[m
[32m     contents <- if cmd == "workout"[m
[32m                     then W.insertWorkout >>= return . show[m
[32m                     else M.insertMeal >>= return . show[m
[1m-    appendFile file . (++ "\n ") . show $ contents[m
[4m+[m[4m    appendFile file $ (++ "\n ") contents[m
[32m     return ()[m
[32m [m
[32m [m