feat: getCurrentRepo

deepflowinc · Mar 19, 2024 · ad8afde · ad8afde
1 parent f9125b9
commit ad8afde
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/effectful-github/src/Effectful/Network/GitHub/Apps.hs b/effectful-github/src/Effectful/Network/GitHub/Apps.hs
@@ -28,6 +28,7 @@ module Effectful.Network.GitHub.Apps (
 
   -- ** GitHub Repository Context
   GitHubRepo,
+  getCurrentRepo,
   Repository (..),
   parseRepo,
   withGitHubRepo,
@@ -264,6 +265,9 @@ rawHttpReqImpl cfg btok endpoint = do
           }
   pure req
 
+getCurrentRepo :: (GitHubRepo :> es) => Eff es Repository
+getCurrentRepo = getStaticRep <&> \(GHRepo repo) -> repo
+
 getRawContent ::
   ( GitHub :> es
   , HasCallStack