Merge pull request #1076 from morucci/1074

Use `committedDate` for ChangeCommitForcePushedEvent's `created_at` field

CHANGELOG.md

@@ -13,6 +13,8 @@ All notable changes to this project will be documented in this file.
 ### Changed
 
 - `workspaceName` is typed as `IndexName`, which respect ElasticSearch constraints
+- [crawler] `ChangeCommitPushedEvent` and `ChangeCommitForcePushedEvent` events date (`created_at`) is the commit date of the
+  related commit.
 
 ### Removed
 

src/Lentille/GitHub/GraphQLFragments.hs

@@ -109,11 +109,13 @@ fragmentPRData =
         }
         ... on HeadRefForcePushedEvent {
           id
-          createdAt
           fpactor: actor {
             __typename
             login
           }
+          afterCommit {
+            forcePushCommittedDate: committedDate
+          }
         }
       }
     }

src/Lentille/GitHub/PullRequests.hs

@@ -191,8 +191,8 @@ transformResponse host identCB result = do
         ( GetProjectPullRequestsRepositoryPullRequestsNodesTimelineItemsNodesHeadRefForcePushedEvent
             _
             eId
-            createdAt
             (Just (GetProjectPullRequestsRepositoryPullRequestsNodesTimelineItemsNodesFpactor _ actor))
+            (Just (GetProjectPullRequestsRepositoryPullRequestsNodesTimelineItemsNodesAfterCommit createdAt))
           ) -> toMaybeForcePushedEvent change eId getIdent actor createdAt
       _ -> Nothing
 

src/Lentille/GitHub/UserPullRequests.hs

@@ -188,9 +188,9 @@ transformResponse host identCB result = do
         ( GetUserPullRequestsUserPullRequestsNodesTimelineItemsNodesHeadRefForcePushedEvent
             _
             eId
-            createdAt
             (Just (GetUserPullRequestsUserPullRequestsNodesTimelineItemsNodesFpactor _ actor))
-          ) -> toMaybeForcePushedEvent change eId getIdent actor createdAt
+            (Just (GetUserPullRequestsUserPullRequestsNodesTimelineItemsNodesAfterCommit createdAt'))
+          ) -> toMaybeForcePushedEvent change eId getIdent actor createdAt'
       _ -> Nothing
 
   getCommitEvents :: Change -> GetUserPullRequestsUserPullRequestsNodesCommits -> [ChangeEvent]