Whitespace and lexical changes only

haskell-github · andreasabel · Jun 24, 2023 · Jun 22, 2021 · Jul 16, 2022 · Jul 17, 2022
commit a24393c149da9aa2a25669781119468f904d470c
diff --git a/src/GitHub/Data/Actions/Artifacts.hs b/src/GitHub/Data/Actions/Artifacts.hs
@@ -6,6 +6,7 @@
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE KindSignatures    #-}
+
 module GitHub.Data.Actions.Artifacts (
     Artifact(..),
     ArtifactWorkflowRun(..),
@@ -20,31 +21,31 @@ import GitHub.Data.Actions.Common       (WithTotalCount (WithTotalCount))
 import GitHub.Data.Actions.WorkflowRuns (WorkflowRun)
 import GitHub.Data.Repos                (Repo)
 
-
 -------------------------------------------------------------------------------
 -- Artifact
 -------------------------------------------------------------------------------
+
 data ArtifactWorkflowRun  = ArtifactWorkflowRun
-    { artifactWorkflowRunWorkflowRunId :: !(Id WorkflowRun)
-    , artifactWorkflowRunRepositoryId :: !(Id Repo)
+    { artifactWorkflowRunWorkflowRunId    :: !(Id WorkflowRun)
+    , artifactWorkflowRunRepositoryId     :: !(Id Repo)
     , artifactWorkflowRunHeadRepositoryId :: !(Id Repo)
-    , artifactWorkflowRunHeadBranch :: !Text
-    , artifactWorkflowRunHeadSha :: !Text
+    , artifactWorkflowRunHeadBranch       :: !Text
+    , artifactWorkflowRunHeadSha          :: !Text
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 data Artifact = Artifact
     { artifactArchiveDownloadUrl :: !URL
-    , artifactCreatedAt :: !UTCTime
-    , artifactExpired :: !Bool
-    , artifactExpiresAt :: !UTCTime
-    , artifactId :: !(Id Artifact)
-    , artifactName :: !Text
-    , artifactNodeId :: !Text
-    , artifactSizeInBytes :: !Int
-    , artifactUpdatedAt :: !UTCTime
-    , artifactUrl :: !URL
-    , artifactWorkflowRun :: !ArtifactWorkflowRun
+    , artifactCreatedAt          :: !UTCTime
+    , artifactExpired            :: !Bool
+    , artifactExpiresAt          :: !UTCTime
+    , artifactId                 :: !(Id Artifact)
+    , artifactName               :: !Text
+    , artifactNodeId             :: !Text
+    , artifactSizeInBytes        :: !Int
+    , artifactUpdatedAt          :: !UTCTime
+    , artifactUrl                :: !URL
+    , artifactWorkflowRun        :: !ArtifactWorkflowRun
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 

diff --git a/src/GitHub/Data/Actions/Cache.hs b/src/GitHub/Data/Actions/Cache.hs
@@ -24,27 +24,27 @@ import GitHub.Data.Actions.Common (WithTotalCount (WithTotalCount))
 -------------------------------------------------------------------------------
 
 data Cache = Cache
-    { cacheId :: !(Id Cache)
-    , cacheRef :: !Text
-    , cacheKey :: !Text
-    , cacheVersion :: !Text
+    { cacheId             :: !(Id Cache)
+    , cacheRef            :: !Text
+    , cacheKey            :: !Text
+    , cacheVersion        :: !Text
     , cacheLastAccessedAt :: !UTCTime
-    , cacheCreatedAt :: !UTCTime
-    , cacheSizeInBytes :: !Int
+    , cacheCreatedAt      :: !UTCTime
+    , cacheSizeInBytes    :: !Int
     }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 data RepositoryCacheUsage = RepositoryCacheUsage
-              { repositoryCacheUsageFullName :: !Text
-              , repositoryCacheUsageActiveCachesSizeInBytes :: !Int
-              , repositoryCacheUsageActiveCachesCount :: !Int
-              }
+    { repositoryCacheUsageFullName                :: !Text
+    , repositoryCacheUsageActiveCachesSizeInBytes :: !Int
+    , repositoryCacheUsageActiveCachesCount       :: !Int
+    }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 data OrganizationCacheUsage = OrganizationCacheUsage
-              { organizationCacheUsageTotalActiveCachesSizeInBytes :: !Int
-              , organizationCacheUsageTotalActiveCachesCount :: !Int
-              }
+    { organizationCacheUsageTotalActiveCachesSizeInBytes :: !Int
+    , organizationCacheUsageTotalActiveCachesCount       :: !Int
+    }
   deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 -- -------------------------------------------------------------------------------

diff --git a/src/GitHub/Data/Actions/Common.hs b/src/GitHub/Data/Actions/Common.hs
@@ -6,26 +6,26 @@
 {-# LANGUAGE DataKinds         #-}
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE KindSignatures    #-}
+
 module GitHub.Data.Actions.Common (
     WithTotalCount(..),
     ) where
 
-
 import GitHub.Internal.Prelude
 import Prelude ()
 
-
 -------------------------------------------------------------------------------
 -- Common
 -------------------------------------------------------------------------------
 
 data WithTotalCount a = WithTotalCount
-    { withTotalCountItems :: !(Vector a)
+    { withTotalCountItems      :: !(Vector a)
     , withTotalCountTotalCount :: !Int
-    } deriving (Show, Data, Typeable, Eq, Ord, Generic)
+    }
+  deriving (Show, Data, Typeable, Eq, Ord, Generic)
 
 instance Semigroup (WithTotalCount a) where
-    (WithTotalCount items1 count1) <> (WithTotalCount items2 _) =
+    WithTotalCount items1 count1 <> WithTotalCount items2 _ =
         WithTotalCount (items1 <> items2) count1
 
 instance Foldable WithTotalCount where

diff --git a/src/GitHub/Data/Options.hs b/src/GitHub/Data/Options.hs
@@ -703,7 +703,7 @@ optionsNoAssignee = IssueRepoMod $ \opts ->
 optionsAssignee :: Name User -> IssueRepoMod
 optionsAssignee u = IssueRepoMod $ \opts ->
     opts { issueRepoOptionsAssignee = FilterBy u }
-    
+
 -------------------------------------------------------------------------------
 -- Actions artifacts
 -------------------------------------------------------------------------------
@@ -933,4 +933,4 @@ optionsWorkflowRunCreated x = WorkflowRunMod $ \opts ->
 
 optionsWorkflowRunHeadSha :: Text -> WorkflowRunMod
 optionsWorkflowRunHeadSha x = WorkflowRunMod $ \opts ->
-    opts { workflowRunOptionsHeadSha = Just x }
+    opts { workflowRunOptionsHeadSha = Just x }
diff --git a/src/GitHub/Endpoints/Actions/Workflows.hs b/src/GitHub/Endpoints/Actions/Workflows.hs
@@ -5,6 +5,7 @@
 -- --
 -- -- The pull requests API as documented at
 -- -- <http://developer.github.com/v3/pulls/>.
+
 module GitHub.Endpoints.Actions.Workflows (
     repositoryWorkflowsR,
     workflowR,