{"action":"created","comment":{"url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/comments/64085894","id":64085894,"diff_hunk":"@@ -1,6 +1,85 @@\n module Main where\n \n-import Text.Printf (printf)\n+import Entities\n+import Control.Monad.IO.Class  (liftIO)\n+import Database.Persist\n+import Database.Persist.Sqlite\n+import Text.Megaparsec\n+import FooParser (parseSections, Section(..))\n+import qualified Database.Esqueleto as E\n \n main :: IO ()\n-main = printf \"foo\"\n+main = do\n+  fileContents <- readFile \"specs.foo\"\n+\n+  -- parse specs.foo\n+  let sections = case runParser parseSections \"specs.foo\" fileContents of\n+        Left err        -> error $ \"could not parse .foo file with error: \" ++ show err","path":"app/Main.hs","position":19,"original_position":19,"commit_id":"55828e420128ba1f10d34dd98a68957a42945174","original_commit_id":"55828e420128ba1f10d34dd98a68957a42945174","user":{"login":"AKurilin","id":858892,"avatar_url":"https://avatars.githubusercontent.com/u/858892?v=3","gravatar_id":"","url":"https://api.github.com/users/AKurilin","html_url":"https://github.com/AKurilin","followers_url":"https://api.github.com/users/AKurilin/followers","following_url":"https://api.github.com/users/AKurilin/following{/other_user}","gists_url":"https://api.github.com/users/AKurilin/gists{/gist_id}","starred_url":"https://api.github.com/users/AKurilin/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/AKurilin/subscriptions","organizations_url":"https://api.github.com/users/AKurilin/orgs","repos_url":"https://api.github.com/users/AKurilin/repos","events_url":"https://api.github.com/users/AKurilin/events{/privacy}","received_events_url":"https://api.github.com/users/AKurilin/received_events","type":"User","site_admin":false},"body":"we sure error is a partial function? https://wiki.haskell.org/Partial_functions - it seems like `error` is pretty consistently going to blow up vs something like `head` which won't ","created_at":"2016-05-20T18:24:17Z","updated_at":"2016-05-20T18:24:17Z","html_url":"https://github.com/frontrowed/pragmatic-haskell/pull/1#discussion_r64085894","pull_request_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1","_links":{"self":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/comments/64085894"},"html":{"href":"https://github.com/frontrowed/pragmatic-haskell/pull/1#discussion_r64085894"},"pull_request":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1"}}},"pull_request":{"url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1","id":70727636,"html_url":"https://github.com/frontrowed/pragmatic-haskell/pull/1","diff_url":"https://github.com/frontrowed/pragmatic-haskell/pull/1.diff","patch_url":"https://github.com/frontrowed/pragmatic-haskell/pull/1.patch","issue_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/1","number":1,"state":"open","locked":false,"title":"Add DB-related functionality","user":{"login":"AKurilin","id":858892,"avatar_url":"https://avatars.githubusercontent.com/u/858892?v=3","gravatar_id":"","url":"https://api.github.com/users/AKurilin","html_url":"https://github.com/AKurilin","followers_url":"https://api.github.com/users/AKurilin/followers","following_url":"https://api.github.com/users/AKurilin/following{/other_user}","gists_url":"https://api.github.com/users/AKurilin/gists{/gist_id}","starred_url":"https://api.github.com/users/AKurilin/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/AKurilin/subscriptions","organizations_url":"https://api.github.com/users/AKurilin/orgs","repos_url":"https://api.github.com/users/AKurilin/repos","events_url":"https://api.github.com/users/AKurilin/events{/privacy}","received_events_url":"https://api.github.com/users/AKurilin/received_events","type":"User","site_admin":false},"body":"","created_at":"2016-05-19T16:46:25Z","updated_at":"2016-05-20T18:24:17Z","closed_at":null,"merged_at":null,"merge_commit_sha":"ebd69d37214f23bcb9c638318aa0382c4c3bb1bf","assignee":null,"milestone":null,"commits_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1/commits","review_comments_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1/comments","review_comment_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/comments{/number}","comments_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/1/comments","statuses_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/statuses/55828e420128ba1f10d34dd98a68957a42945174","head":{"label":"frontrowed:db","ref":"db","sha":"55828e420128ba1f10d34dd98a68957a42945174","user":{"login":"frontrowed","id":8933560,"avatar_url":"https://avatars.githubusercontent.com/u/8933560?v=3","gravatar_id":"","url":"https://api.github.com/users/frontrowed","html_url":"https://github.com/frontrowed","followers_url":"https://api.github.com/users/frontrowed/followers","following_url":"https://api.github.com/users/frontrowed/following{/other_user}","gists_url":"https://api.github.com/users/frontrowed/gists{/gist_id}","starred_url":"https://api.github.com/users/frontrowed/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/frontrowed/subscriptions","organizations_url":"https://api.github.com/users/frontrowed/orgs","repos_url":"https://api.github.com/users/frontrowed/repos","events_url":"https://api.github.com/users/frontrowed/events{/privacy}","received_events_url":"https://api.github.com/users/frontrowed/received_events","type":"Organization","site_admin":false},"repo":{"id":56646343,"name":"pragmatic-haskell","full_name":"frontrowed/pragmatic-haskell","owner":{"login":"frontrowed","id":8933560,"avatar_url":"https://avatars.githubusercontent.com/u/8933560?v=3","gravatar_id":"","url":"https://api.github.com/users/frontrowed","html_url":"https://github.com/frontrowed","followers_url":"https://api.github.com/users/frontrowed/followers","following_url":"https://api.github.com/users/frontrowed/following{/other_user}","gists_url":"https://api.github.com/users/frontrowed/gists{/gist_id}","starred_url":"https://api.github.com/users/frontrowed/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/frontrowed/subscriptions","organizations_url":"https://api.github.com/users/frontrowed/orgs","repos_url":"https://api.github.com/users/frontrowed/repos","events_url":"https://api.github.com/users/frontrowed/events{/privacy}","received_events_url":"https://api.github.com/users/frontrowed/received_events","type":"Organization","site_admin":false},"private":false,"html_url":"https://github.com/frontrowed/pragmatic-haskell","description":"","fork":false,"url":"https://api.github.com/repos/frontrowed/pragmatic-haskell","forks_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/forks","keys_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/keys{/key_id}","collaborators_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/teams","hooks_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/hooks","issue_events_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/events{/number}","events_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/events","assignees_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/assignees{/user}","branches_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/branches{/branch}","tags_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/tags","blobs_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/refs{/sha}","trees_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/trees{/sha}","statuses_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/statuses/{sha}","languages_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/languages","stargazers_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/stargazers","contributors_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/contributors","subscribers_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/subscribers","subscription_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/subscription","commits_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/commits{/sha}","git_commits_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/commits{/sha}","comments_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/comments{/number}","issue_comment_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/comments{/number}","contents_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/contents/{+path}","compare_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/compare/{base}...{head}","merges_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/merges","archive_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/downloads","issues_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues{/number}","pulls_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls{/number}","milestones_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/milestones{/number}","notifications_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/labels{/name}","releases_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/releases{/id}","deployments_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/deployments","created_at":"2016-04-20T01:47:26Z","updated_at":"2016-04-20T02:12:48Z","pushed_at":"2016-05-20T07:27:10Z","git_url":"git://github.com/frontrowed/pragmatic-haskell.git","ssh_url":"git@github.com:frontrowed/pragmatic-haskell.git","clone_url":"https://github.com/frontrowed/pragmatic-haskell.git","svn_url":"https://github.com/frontrowed/pragmatic-haskell","homepage":null,"size":24,"stargazers_count":0,"watchers_count":0,"language":"Haskell","has_issues":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":0,"mirror_url":null,"open_issues_count":1,"forks":0,"open_issues":1,"watchers":0,"default_branch":"master"}},"base":{"label":"frontrowed:master","ref":"master","sha":"eb63ea7db0e979a1b9cd650af7af36525c32f262","user":{"login":"frontrowed","id":8933560,"avatar_url":"https://avatars.githubusercontent.com/u/8933560?v=3","gravatar_id":"","url":"https://api.github.com/users/frontrowed","html_url":"https://github.com/frontrowed","followers_url":"https://api.github.com/users/frontrowed/followers","following_url":"https://api.github.com/users/frontrowed/following{/other_user}","gists_url":"https://api.github.com/users/frontrowed/gists{/gist_id}","starred_url":"https://api.github.com/users/frontrowed/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/frontrowed/subscriptions","organizations_url":"https://api.github.com/users/frontrowed/orgs","repos_url":"https://api.github.com/users/frontrowed/repos","events_url":"https://api.github.com/users/frontrowed/events{/privacy}","received_events_url":"https://api.github.com/users/frontrowed/received_events","type":"Organization","site_admin":false},"repo":{"id":56646343,"name":"pragmatic-haskell","full_name":"frontrowed/pragmatic-haskell","owner":{"login":"frontrowed","id":8933560,"avatar_url":"https://avatars.githubusercontent.com/u/8933560?v=3","gravatar_id":"","url":"https://api.github.com/users/frontrowed","html_url":"https://github.com/frontrowed","followers_url":"https://api.github.com/users/frontrowed/followers","following_url":"https://api.github.com/users/frontrowed/following{/other_user}","gists_url":"https://api.github.com/users/frontrowed/gists{/gist_id}","starred_url":"https://api.github.com/users/frontrowed/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/frontrowed/subscriptions","organizations_url":"https://api.github.com/users/frontrowed/orgs","repos_url":"https://api.github.com/users/frontrowed/repos","events_url":"https://api.github.com/users/frontrowed/events{/privacy}","received_events_url":"https://api.github.com/users/frontrowed/received_events","type":"Organization","site_admin":false},"private":false,"html_url":"https://github.com/frontrowed/pragmatic-haskell","description":"","fork":false,"url":"https://api.github.com/repos/frontrowed/pragmatic-haskell","forks_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/forks","keys_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/keys{/key_id}","collaborators_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/collaborators{/collaborator}","teams_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/teams","hooks_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/hooks","issue_events_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/events{/number}","events_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/events","assignees_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/assignees{/user}","branches_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/branches{/branch}","tags_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/tags","blobs_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/blobs{/sha}","git_tags_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/tags{/sha}","git_refs_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/refs{/sha}","trees_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/trees{/sha}","statuses_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/statuses/{sha}","languages_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/languages","stargazers_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/stargazers","contributors_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/contributors","subscribers_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/subscribers","subscription_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/subscription","commits_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/commits{/sha}","git_commits_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/git/commits{/sha}","comments_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/comments{/number}","issue_comment_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/comments{/number}","contents_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/contents/{+path}","compare_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/compare/{base}...{head}","merges_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/merges","archive_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/{archive_format}{/ref}","downloads_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/downloads","issues_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues{/number}","pulls_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls{/number}","milestones_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/milestones{/number}","notifications_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/notifications{?since,all,participating}","labels_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/labels{/name}","releases_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/releases{/id}","deployments_url":"https://api.github.com/repos/frontrowed/pragmatic-haskell/deployments","created_at":"2016-04-20T01:47:26Z","updated_at":"2016-04-20T02:12:48Z","pushed_at":"2016-05-20T07:27:10Z","git_url":"git://github.com/frontrowed/pragmatic-haskell.git","ssh_url":"git@github.com:frontrowed/pragmatic-haskell.git","clone_url":"https://github.com/frontrowed/pragmatic-haskell.git","svn_url":"https://github.com/frontrowed/pragmatic-haskell","homepage":null,"size":24,"stargazers_count":0,"watchers_count":0,"language":"Haskell","has_issues":true,"has_downloads":true,"has_wiki":true,"has_pages":false,"forks_count":0,"mirror_url":null,"open_issues_count":1,"forks":0,"open_issues":1,"watchers":0,"default_branch":"master"}},"_links":{"self":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1"},"html":{"href":"https://github.com/frontrowed/pragmatic-haskell/pull/1"},"issue":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/1"},"comments":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/issues/1/comments"},"review_comments":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1/comments"},"review_comment":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/comments{/number}"},"commits":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/pulls/1/commits"},"statuses":{"href":"https://api.github.com/repos/frontrowed/pragmatic-haskell/statuses/55828e420128ba1f10d34dd98a68957a42945174"}}}}
{"actor":{"display_login":"AKurilin"}}