{"provider_name":"Hatena Blog","height":"190","categories":["Haskell"],"url":"https://www.shigemk2.com/entry/20130316/1363445613","type":"rich","width":"100%","description":"data Person = Person String String Int Float String String deriving (Show) -- *Main> let guy = Person \"Buddy\" \"Finklestein\" 43 184.2 \"526-2928\" \"Chocolate\" -- *Main> guy -- Person \"Buddy\" \"Finklestein\" 43 184.2 \"526-2928\" \"Chocolate\" firstName :: Person -> String firstName (Person firstname _ _ _ _ \u2026","author_url":"https://blog.hatena.ne.jp/shigemk2/","version":"1.0","published":"2013-03-16 23:53:33","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fwww.shigemk2.com%2Fentry%2F20130316%2F1363445613\" title=\"\u30ec\u30b3\u30fc\u30c9\u69cb\u6587 - by shigemk2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_name":"shigemk2","blog_title":"by shigemk2","blog_url":"https://www.shigemk2.com/","image_url":null,"title":"\u30ec\u30b3\u30fc\u30c9\u69cb\u6587","provider_url":"https://hatena.blog"}