[from now] 2014/04/11 08:12:20

[36mdiff --git a/list/oreillyJapan.txt b/list/oreillyJapan.txt[m
[36mnew file mode 100644[m
[36mindex 0000000..d30f5ba[m
[36m--- /dev/null[m
[36m+++ b/list/oreillyJapan.txt[m
[34m@@ -0,0 +1,6 @@[m
[4m+[m[4m= `title`: Real World Haskell[m
[4m+[m[4m= `author`: Bryan O'Sullivan, John Goerzen, Don Stewart[m
[4m+[m[4m= `publisher`: Oreilly Japan[m
[4m+[m[4m= `tag` : Functional, haskell[m
[4m+[m[4m= `url`: https://www.oreilly.co.jp/ebook/bookshelf[m
[4m+[m[4m= `hosting` : Oreilly Japan[m
[36mdiff --git a/src/Book.hs b/src/Book.hs[m
[36mindex b563d65..394ea99 100644[m
[36m--- a/src/Book.hs[m
[36m+++ b/src/Book.hs[m
[34m@@ -4,16 +4,21 @@[m
[32m --            ) where[m
[32m --[m
[32m --[m
[4m+[m[4mimport Data.Time[m
[32m [m
[32m type BookInfo = Maybe String[m
[4m+[m[4mtype Author = Maybe [String][m
[4m+[m[4mtype Tag = Maybe [String][m
[32m [m
[1m-data Host = Oreilly | Manning | PragmaticBookshelf | Apress | InformIt deriving (Show, Eq)[m
[4m+[m[4mdata Host = Oreilly | Manning | PragmaticBookshelf | Apress | InformIt |LeanPub | PacktPub | OreillyJapan | OHMSHA  deriving (Show, Eq)[m
[32m [m
[32m data Book = Book{title :: String[m
[1m-                , author :: BookInfo[m
[4m+[m[4m                , author :: Author[m
[32m                 , publisher :: BookInfo[m
[4m+[m[4m                , tag :: Maybe [String][m
[32m                 , url :: BookInfo[m
[32m                 , hosting :: Maybe Host[m
[4m+[m[4m                , purchesBy :: Maybe Day[m
[32m                 } deriving (Show, Eq)[m
[32m [m
[32m [m
[34m@@ -21,8 +26,10 @@[m[32m [m[33mdefaultBook :: String -> Book[m
[32m defaultBook s = Book{title = s[m
[32m                     , author = Nothing[m
[32m                     , publisher = Nothing[m
[4m+[m[4m                    , tag = Nothing[m
[32m                     , url = Nothing[m
[1m-                    , hosting = Nothing}[m
[4m+[m[4m                    , hosting = Nothing[m
[4m+[m[4m                    , purchesBy = Nothing}[m
[32m [m
[32m [m
[32m main :: IO ()[m