From 2b041520374af2b3aff1020f5ad9a61365ad0313 Mon Sep 17 00:00:00 2001
From: Ben Fradet <benjamin.fradet@gmail.com>
Date: Tue, 30 May 2017 18:48:52 +0100
Subject: [PATCH 1/9] cats-effect module

---
 build.sbt                                     |  9 ++++-
 .../github4s/cats/effect/Implicits.scala      | 31 ++++++++++++++
 .../github4s/cats/effect/CatsEffectSpec.scala | 40 +++++++++++++++++++
 project/ProjectPlugin.scala                   | 10 ++++-
 4 files changed, 86 insertions(+), 4 deletions(-)
 create mode 100644 cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala
 create mode 100644 cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala

diff --git a/build.sbt b/build.sbt
index fcf313d26..19f4857c5 100644
--- a/build.sbt
+++ b/build.sbt
@@ -3,8 +3,8 @@ pgpPublicRing := file(s"$gpgFolder/pubring.gpg")
 pgpSecretRing := file(s"$gpgFolder/secring.gpg")
 
 lazy val root = (project in file("."))
-  .dependsOn(github4sJVM, github4sJS, scalaz, docs)
-  .aggregate(github4sJVM, github4sJS, scalaz, docs)
+  .dependsOn(github4sJVM, github4sJS, scalaz, catsEffect, docs)
+  .aggregate(github4sJVM, github4sJS, scalaz, catsEffect, docs)
   .settings(noPublishSettings: _*)
 
 lazy val github4s = (crossProject in file("github4s"))
@@ -39,3 +39,8 @@ lazy val scalaz = (project in file("scalaz"))
   .settings(moduleName := "github4s-scalaz")
   .settings(scalazDependencies: _*)
   .dependsOn(github4sJVM)
+
+lazy val catsEffect = (project in file("cats-effect"))
+  .settings(moduleName := "github4s-cats-effect")
+  .settings(catsEffectDependencies: _*)
+  .dependsOn(github4sJVM)
\ No newline at end of file
diff --git a/cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala b/cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala
new file mode 100644
index 000000000..b67fcc24a
--- /dev/null
+++ b/cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala
@@ -0,0 +1,31 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect
+
+import cats.effect.IO
+import github4s.HttpRequestBuilderExtensionJVM
+import github4s.free.interpreters.{Capture, Interpreters}
+import scalaj.http.HttpResponse
+
+object implicits extends HttpRequestBuilderExtensionJVM {
+  implicit val ioCaptureInstance = new Capture[IO] {
+    override def capture[A](a: ⇒ A): IO[A] = IO.pure(a)
+  }
+
+  implicit val intInstanceIOScalaJ =
+    new Interpreters[IO, HttpResponse[String]]
+}
diff --git a/cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala b/cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala
new file mode 100644
index 000000000..b77771099
--- /dev/null
+++ b/cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala
@@ -0,0 +1,40 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect
+
+import cats.effect.IO
+import github4s.cats.effect.implicits._
+import github4s.Github
+import github4s.Github._
+import org.scalatest.{FlatSpec, Matchers}
+import scalaj.http.HttpResponse
+
+class CatsEffectSpec extends FlatSpec with Matchers {
+  val accessToken     = sys.env.get("GITHUB4S_ACCESS_TOKEN")
+  val headerUserAgent = Map("user-agent" -> "github4s")
+  val validUsername   = "rafaparadela"
+  val okStatusCode    = 200
+
+  "cats-effect integration" should "return the expected result for a call" in {
+    val response =
+      Github(accessToken).users.get(validUsername).exec[IO, HttpResponse[String]](headerUserAgent)
+
+    val res = response.unsafeRunSync
+    res.isRight shouldBe true
+    res.map(_.statusCode) shouldBe Right(okStatusCode)
+  }
+}
diff --git a/project/ProjectPlugin.scala b/project/ProjectPlugin.scala
index 814600998..92baa2b21 100644
--- a/project/ProjectPlugin.scala
+++ b/project/ProjectPlugin.scala
@@ -71,8 +71,14 @@ object ProjectPlugin extends AutoPlugin {
 
     lazy val docsDependencies: Def.Setting[Seq[ModuleID]] = libraryDependencies += %%("scalatest")
 
-    lazy val scalazDependencies: Def.Setting[Seq[ModuleID]] = libraryDependencies += %%(
-      "scalaz-concurrent")
+    lazy val scalazDependencies: Def.Setting[Seq[ModuleID]] =
+      libraryDependencies += %%("scalaz-concurrent")
+
+    lazy val catsEffectDependencies: Def.Setting[Seq[ModuleID]] =
+      libraryDependencies ++= Seq(
+        "org.typelevel" %% "cats-effect" % "0.3",
+        %%("scalatest") % "test"
+      )
   }
 
   override def projectSettings: Seq[Def.Setting[_]] =

From e1a52d688a48ef226c569df715bb9cb9cdd612d8 Mon Sep 17 00:00:00 2001
From: Ben Fradet <benjamin.fradet@gmail.com>
Date: Thu, 1 Jun 2017 19:16:54 +0100
Subject: [PATCH 2/9] js support

---
 build.sbt                                     | 13 +++--
 .../IOHttpRequestBuilderExtensionJS.scala     | 47 ++++++++++++++++
 .../github4s/cats/effect/js/Implicits.scala   | 19 +++++++
 .../github4s/cats/effect/js/ImplicitsJS.scala | 29 ++++++++++
 .../cats/effect/js/CatsEffectJSSpec.scala     | 51 ++++++++++++++++++
 .../github4s/cats/effect/jvm/Implicits.scala  | 19 +++++++
 .../cats/effect/jvm/ImplicitsJVM.scala}       | 14 +++--
 .../cats/effect/jvm/CatsEffectJVMSpec.scala}  | 21 ++++++--
 .../cats/effect/IOCaptureInstance.scala       | 26 +++++++++
 .../HttpRequestBuilderExtensionJS.scala       | 54 ++++++++++---------
 .../HttpRequestBuilderExtensionJVM.scala      |  1 -
 .../test/scala/github4s/utils/TestData.scala  |  2 +-
 project/ProjectPlugin.scala                   |  2 +-
 project/plugins.sbt                           |  2 +-
 14 files changed, 253 insertions(+), 47 deletions(-)
 create mode 100644 cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala
 create mode 100644 cats-effect/js/src/main/scala/github4s/cats/effect/js/Implicits.scala
 create mode 100644 cats-effect/js/src/main/scala/github4s/cats/effect/js/ImplicitsJS.scala
 create mode 100644 cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
 create mode 100644 cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/Implicits.scala
 rename cats-effect/{src/main/scala/github4s/cats/effect/Implicits.scala => jvm/src/main/scala/github4s/cats/effect/jvm/ImplicitsJVM.scala} (75%)
 rename cats-effect/{src/test/scala/github4s/cats/effect/CatsEffectSpec.scala => jvm/src/test/scala/github4s/cats/effect/jvm/CatsEffectJVMSpec.scala} (65%)
 create mode 100644 cats-effect/shared/src/main/scala/github4s/cats/effect/IOCaptureInstance.scala

diff --git a/build.sbt b/build.sbt
index 19f4857c5..873ae1f1f 100644
--- a/build.sbt
+++ b/build.sbt
@@ -3,8 +3,8 @@ pgpPublicRing := file(s"$gpgFolder/pubring.gpg")
 pgpSecretRing := file(s"$gpgFolder/secring.gpg")
 
 lazy val root = (project in file("."))
-  .dependsOn(github4sJVM, github4sJS, scalaz, catsEffect, docs)
-  .aggregate(github4sJVM, github4sJS, scalaz, catsEffect, docs)
+  .dependsOn(github4sJVM, github4sJS, scalaz, catsEffectJVM, catsEffectJS, docs)
+  .aggregate(github4sJVM, github4sJS, scalaz, catsEffectJVM, catsEffectJS, docs)
   .settings(noPublishSettings: _*)
 
 lazy val github4s = (crossProject in file("github4s"))
@@ -23,7 +23,6 @@ lazy val github4s = (crossProject in file("github4s"))
   .jsSettings(jsDeps: _*)
   .jsSettings(sharedJsSettings: _*)
   .jsSettings(testSettings: _*)
-
 lazy val github4sJVM = github4s.jvm
 lazy val github4sJS  = github4s.js
 
@@ -40,7 +39,11 @@ lazy val scalaz = (project in file("scalaz"))
   .settings(scalazDependencies: _*)
   .dependsOn(github4sJVM)
 
-lazy val catsEffect = (project in file("cats-effect"))
+lazy val catsEffect = (crossProject in file("cats-effect"))
   .settings(moduleName := "github4s-cats-effect")
   .settings(catsEffectDependencies: _*)
-  .dependsOn(github4sJVM)
\ No newline at end of file
+  .jsSettings(sharedJsSettings: _*)
+  .jsSettings(testSettings: _*)
+  .dependsOn(github4s)
+lazy val catsEffectJVM = catsEffect.jvm
+lazy val catsEffectJS  = catsEffect.js
diff --git a/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala b/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala
new file mode 100644
index 000000000..b9ecdff7a
--- /dev/null
+++ b/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala
@@ -0,0 +1,47 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect
+
+import cats.effect.IO
+import cats.Eval.later
+import fr.hmil.roshttp.response.SimpleHttpResponse
+import github4s.{HttpRequestBuilder, HttpRequestBuilderExtension, HttpRequestBuilderExtensionJS}
+import github4s.GithubResponses._
+import io.circe.Decoder
+
+import scala.concurrent.Future
+
+trait IOHttpRequestBuilderExtensionJS extends HttpRequestBuilderExtensionJS {
+
+  import monix.execution.Scheduler.Implicits.global
+
+  implicit def extensionIOJS: HttpRequestBuilderExtension[SimpleHttpResponse, IO] =
+    new HttpRequestBuilderExtension[SimpleHttpResponse, IO] {
+
+      def run[A](rb: HttpRequestBuilder[SimpleHttpResponse, IO])(
+          implicit D: Decoder[A]): IO[GHResponse[A]] =
+        runMapWrapper[A](rb, decodeEntity[A])
+
+      def runEmpty(rb: HttpRequestBuilder[SimpleHttpResponse, IO]): IO[GHResponse[Unit]] =
+        runMapWrapper[Unit](rb, emptyResponse)
+
+      private[this] def runMapWrapper[A](
+          rb: HttpRequestBuilder[SimpleHttpResponse, IO],
+          mapResponse: SimpleHttpResponse => GHResponse[A]): IO[GHResponse[A]] =
+        IO.fromFuture(later(runMap[A, IO](rb, mapResponse)))
+    }
+}
diff --git a/cats-effect/js/src/main/scala/github4s/cats/effect/js/Implicits.scala b/cats-effect/js/src/main/scala/github4s/cats/effect/js/Implicits.scala
new file mode 100644
index 000000000..06276d86d
--- /dev/null
+++ b/cats-effect/js/src/main/scala/github4s/cats/effect/js/Implicits.scala
@@ -0,0 +1,19 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect.js
+
+object Implicits extends ImplicitsJS
\ No newline at end of file
diff --git a/cats-effect/js/src/main/scala/github4s/cats/effect/js/ImplicitsJS.scala b/cats-effect/js/src/main/scala/github4s/cats/effect/js/ImplicitsJS.scala
new file mode 100644
index 000000000..56c0d3ca9
--- /dev/null
+++ b/cats-effect/js/src/main/scala/github4s/cats/effect/js/ImplicitsJS.scala
@@ -0,0 +1,29 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect.js
+
+import cats.effect.IO
+import fr.hmil.roshttp.response.SimpleHttpResponse
+import github4s.HttpRequestBuilderExtensionJS
+import github4s.cats.effect.{IOCaptureInstance, IOHttpRequestBuilderExtensionJS}
+import github4s.free.interpreters.Interpreters
+import github4s.implicits._
+
+trait ImplicitsJS extends IOHttpRequestBuilderExtensionJS with IOCaptureInstance {
+  implicit val intInstanceIORosHttp =
+    new Interpreters[IO, SimpleHttpResponse]
+}
\ No newline at end of file
diff --git a/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala b/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
new file mode 100644
index 000000000..02bb3934f
--- /dev/null
+++ b/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
@@ -0,0 +1,51 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect.js
+
+import cats.effect.IO
+import github4s.Github
+import github4s.Github._
+import github4s.cats.effect.js.Implicits._
+import org.scalatest.{FlatSpec, Matchers}
+import fr.hmil.roshttp.response.SimpleHttpResponse
+
+class CatsEffectJSSpec extends FlatSpec with Matchers {
+  val accessToken     = sys.env.get("GITHUB4S_ACCESS_TOKEN")
+  val headerUserAgent = Map("user-agent" -> "github4s")
+  val validUsername   = "rafaparadela"
+  val invalidUsername = "GHInvalidUserName"
+  val okStatusCode    = 200
+
+  "cats-effect js integration" should "return a succeded result for a valid call" in {
+    val response = Github(accessToken).users
+      .get(validUsername)
+      .exec[IO, SimpleHttpResponse](headerUserAgent)
+
+    val res = response.unsafeRunSync
+    res.isRight shouldBe true
+    res.right.map(_.statusCode) shouldBe Right(okStatusCode)
+  }
+
+  it should "return a failed result for an invalid call" in {
+    val response = Github(accessToken).users
+      .get(invalidUsername)
+      .exec[IO, SimpleHttpResponse](headerUserAgent)
+
+    val res = response.unsafeRunSync
+    res.isLeft shouldBe true
+  }
+}
diff --git a/cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/Implicits.scala b/cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/Implicits.scala
new file mode 100644
index 000000000..45cd68a6a
--- /dev/null
+++ b/cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/Implicits.scala
@@ -0,0 +1,19 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect.jvm
+
+object Implicits extends ImplicitsJVM
\ No newline at end of file
diff --git a/cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala b/cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/ImplicitsJVM.scala
similarity index 75%
rename from cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala
rename to cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/ImplicitsJVM.scala
index b67fcc24a..e7e669093 100644
--- a/cats-effect/src/main/scala/github4s/cats/effect/Implicits.scala
+++ b/cats-effect/jvm/src/main/scala/github4s/cats/effect/jvm/ImplicitsJVM.scala
@@ -14,18 +14,16 @@
  * limitations under the License.
  */
 
-package github4s.cats.effect
+package github4s.cats.effect.jvm
 
 import cats.effect.IO
 import github4s.HttpRequestBuilderExtensionJVM
-import github4s.free.interpreters.{Capture, Interpreters}
+import github4s.cats.effect.IOCaptureInstance
+import github4s.free.interpreters.Interpreters
+import github4s.implicits._
 import scalaj.http.HttpResponse
 
-object implicits extends HttpRequestBuilderExtensionJVM {
-  implicit val ioCaptureInstance = new Capture[IO] {
-    override def capture[A](a: ⇒ A): IO[A] = IO.pure(a)
-  }
-
+trait ImplicitsJVM extends HttpRequestBuilderExtensionJVM with IOCaptureInstance {
   implicit val intInstanceIOScalaJ =
     new Interpreters[IO, HttpResponse[String]]
-}
+}
\ No newline at end of file
diff --git a/cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala b/cats-effect/jvm/src/test/scala/github4s/cats/effect/jvm/CatsEffectJVMSpec.scala
similarity index 65%
rename from cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala
rename to cats-effect/jvm/src/test/scala/github4s/cats/effect/jvm/CatsEffectJVMSpec.scala
index b77771099..d54817d67 100644
--- a/cats-effect/src/test/scala/github4s/cats/effect/CatsEffectSpec.scala
+++ b/cats-effect/jvm/src/test/scala/github4s/cats/effect/jvm/CatsEffectJVMSpec.scala
@@ -14,27 +14,38 @@
  * limitations under the License.
  */
 
-package github4s.cats.effect
+package github4s.cats.effect.jvm
 
 import cats.effect.IO
-import github4s.cats.effect.implicits._
 import github4s.Github
 import github4s.Github._
+import github4s.cats.effect.jvm.Implicits._
 import org.scalatest.{FlatSpec, Matchers}
 import scalaj.http.HttpResponse
 
-class CatsEffectSpec extends FlatSpec with Matchers {
+class CatsEffectJVMSpec extends FlatSpec with Matchers {
   val accessToken     = sys.env.get("GITHUB4S_ACCESS_TOKEN")
   val headerUserAgent = Map("user-agent" -> "github4s")
   val validUsername   = "rafaparadela"
+  val invalidUsername = "GHInvalidUserName"
   val okStatusCode    = 200
 
-  "cats-effect integration" should "return the expected result for a call" in {
+  "cats-effect jvm integration" should "return a succeded result for a valid call" in {
     val response =
       Github(accessToken).users.get(validUsername).exec[IO, HttpResponse[String]](headerUserAgent)
 
     val res = response.unsafeRunSync
     res.isRight shouldBe true
-    res.map(_.statusCode) shouldBe Right(okStatusCode)
+    res.right.map(_.statusCode) shouldBe Right(okStatusCode)
+  }
+
+  it should "return a failed result for an invalid call" in {
+    val response =
+      Github(accessToken).users
+        .get(invalidUsername)
+        .exec[IO, HttpResponse[String]](headerUserAgent)
+
+    val res = response.unsafeRunSync
+    res.isLeft shouldBe true
   }
 }
diff --git a/cats-effect/shared/src/main/scala/github4s/cats/effect/IOCaptureInstance.scala b/cats-effect/shared/src/main/scala/github4s/cats/effect/IOCaptureInstance.scala
new file mode 100644
index 000000000..899cde39f
--- /dev/null
+++ b/cats-effect/shared/src/main/scala/github4s/cats/effect/IOCaptureInstance.scala
@@ -0,0 +1,26 @@
+/*
+ * Copyright 2016-2017 47 Degrees, LLC. <http://www.47deg.com>
+ *
+ * Licensed under the Apache License, Version 2.0 (the "License");
+ * you may not use this file except in compliance with the License.
+ * You may obtain a copy of the License at
+ *
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ *
+ * Unless required by applicable law or agreed to in writing, software
+ * distributed under the License is distributed on an "AS IS" BASIS,
+ * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ * See the License for the specific language governing permissions and
+ * limitations under the License.
+ */
+
+package github4s.cats.effect
+
+import cats.effect.IO
+import github4s.free.interpreters.Capture
+
+trait IOCaptureInstance {
+  implicit val ioCaptureInstance = new Capture[IO] {
+    override def capture[A](a: ⇒ A): IO[A] = IO.pure(a)
+  }
+}
diff --git a/github4s/js/src/main/scala/github4s/HttpRequestBuilderExtensionJS.scala b/github4s/js/src/main/scala/github4s/HttpRequestBuilderExtensionJS.scala
index d98256d71..b8322e909 100644
--- a/github4s/js/src/main/scala/github4s/HttpRequestBuilderExtensionJS.scala
+++ b/github4s/js/src/main/scala/github4s/HttpRequestBuilderExtensionJS.scala
@@ -44,37 +44,41 @@ trait HttpRequestBuilderExtensionJS {
     new HttpRequestBuilderExtension[SimpleHttpResponse, Future] {
 
       def run[A](rb: HttpRequestBuilder[SimpleHttpResponse, Future])(
-          implicit D: Decoder[A]): Future[GHResponse[A]] = runMap[A](rb, decodeEntity[A])
+          implicit D: Decoder[A]): Future[GHResponse[A]] = runMapWrapper[A](rb, decodeEntity[A])
 
       def runEmpty(rb: HttpRequestBuilder[SimpleHttpResponse, Future]): Future[GHResponse[Unit]] =
-        runMap[Unit](rb, emptyResponse)
+        runMapWrapper[Unit](rb, emptyResponse)
 
-      private[this] def runMap[A](
+      private[this] def runMapWrapper[A](
           rb: HttpRequestBuilder[SimpleHttpResponse, Future],
-          mapResponse: SimpleHttpResponse => GHResponse[A]): Future[GHResponse[A]] = {
-
-        val params = rb.params.map {
-          case (key, value) => s"$key=$value"
-        } mkString "&"
-
-        val request = HttpRequest(rb.url)
-          .withMethod(Method(rb.httpVerb.verb))
-          .withQueryStringRaw(params)
-          .withHeader("content-type", "application/json")
-          .withHeaders(rb.authHeader.toList: _*)
-          .withHeaders(rb.headers.toList: _*)
-
-        rb.data
-          .map(d => request.send(CirceJSONBody(d)))
-          .getOrElse(request.send())
-          .map(toEntity[A](_, mapResponse))
-          .recoverWith {
-            case e =>
-              Future.successful(Either.left(UnexpectedException(e.getMessage)))
-          }
-      }
+          mapResponse: SimpleHttpResponse => GHResponse[A]): Future[GHResponse[A]] =
+        runMap[A, Future](rb, mapResponse)
     }
 
+  protected def runMap[A, M[_]](
+      rb: HttpRequestBuilder[SimpleHttpResponse, M],
+      mapResponse: SimpleHttpResponse => GHResponse[A]): Future[GHResponse[A]] = {
+    val params = rb.params.map {
+      case (key, value) => s"$key=$value"
+    } mkString "&"
+
+    val request = HttpRequest(rb.url)
+      .withMethod(Method(rb.httpVerb.verb))
+      .withQueryStringRaw(params)
+      .withHeader("content-type", "application/json")
+      .withHeaders(rb.authHeader.toList: _*)
+      .withHeaders(rb.headers.toList: _*)
+
+    rb.data
+      .map(d => request.send(CirceJSONBody(d)))
+      .getOrElse(request.send())
+      .map(toEntity[A](_, mapResponse))
+      .recoverWith {
+        case e =>
+          Future.successful(Either.left(UnexpectedException(e.getMessage)))
+      }
+  }
+
   def toEntity[A](
       response: SimpleHttpResponse,
       mapResponse: (SimpleHttpResponse) => GHResponse[A]): GHResponse[A] =
diff --git a/github4s/jvm/src/main/scala/github4s/HttpRequestBuilderExtensionJVM.scala b/github4s/jvm/src/main/scala/github4s/HttpRequestBuilderExtensionJVM.scala
index ae6c1e8d0..46e33c93c 100644
--- a/github4s/jvm/src/main/scala/github4s/HttpRequestBuilderExtensionJVM.scala
+++ b/github4s/jvm/src/main/scala/github4s/HttpRequestBuilderExtensionJVM.scala
@@ -67,7 +67,6 @@ trait HttpRequestBuilderExtensionJVM {
                 mapResponse)
             )
           case _ ⇒ C.capture(toEntity[A](request.asString, mapResponse))
-
         }
       }
     }
diff --git a/github4s/shared/src/test/scala/github4s/utils/TestData.scala b/github4s/shared/src/test/scala/github4s/utils/TestData.scala
index 1c1fc7004..41ba2402f 100644
--- a/github4s/shared/src/test/scala/github4s/utils/TestData.scala
+++ b/github4s/shared/src/test/scala/github4s/utils/TestData.scala
@@ -26,7 +26,7 @@ trait TestData extends DummyGithubUrls {
   val headerUserAgent: Map[String, String] = Map("user-agent" -> "github4s")
 
   val validUsername   = "rafaparadela"
-  val invalidUsername = "GHInvalidaUserName"
+  val invalidUsername = "GHInvalidUserName"
   val invalidPassword = "invalidPassword"
 
   def validBasicAuth = s"Basic ${s"$validUsername:".getBytes.toBase64}"
diff --git a/project/ProjectPlugin.scala b/project/ProjectPlugin.scala
index 92baa2b21..dee9b2621 100644
--- a/project/ProjectPlugin.scala
+++ b/project/ProjectPlugin.scala
@@ -76,7 +76,7 @@ object ProjectPlugin extends AutoPlugin {
 
     lazy val catsEffectDependencies: Def.Setting[Seq[ModuleID]] =
       libraryDependencies ++= Seq(
-        "org.typelevel" %% "cats-effect" % "0.3",
+        %%("cats-effect"),
         %%("scalatest") % "test"
       )
   }
diff --git a/project/plugins.sbt b/project/plugins.sbt
index 31da10890..e3ffb2b8c 100644
--- a/project/plugins.sbt
+++ b/project/plugins.sbt
@@ -1,2 +1,2 @@
 addSbtPlugin(
-  "com.47deg" % "sbt-org-policies" % "0.5.0" exclude ("io.get-coursier", "sbt-coursier"))
+  "com.47deg" % "sbt-org-policies" % "0.5.2" exclude ("io.get-coursier", "sbt-coursier"))

From 2d086a36ffd0cf304c398100a266f4e092677bcc Mon Sep 17 00:00:00 2001
From: Ben Fradet <benjamin.fradet@gmail.com>
Date: Thu, 1 Jun 2017 19:38:39 +0100
Subject: [PATCH 3/9] excluding cats-effect from code cov

---
 .../github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala  | 2 +-
 project/ProjectPlugin.scala                                     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala b/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala
index b9ecdff7a..ba659c90f 100644
--- a/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala
+++ b/cats-effect/js/src/main/scala/github4s/cats/effect/IOHttpRequestBuilderExtensionJS.scala
@@ -20,7 +20,7 @@ import cats.effect.IO
 import cats.Eval.later
 import fr.hmil.roshttp.response.SimpleHttpResponse
 import github4s.{HttpRequestBuilder, HttpRequestBuilderExtension, HttpRequestBuilderExtensionJS}
-import github4s.GithubResponses._
+import github4s.GithubResponses.GHResponse
 import io.circe.Decoder
 
 import scala.concurrent.Future
diff --git a/project/ProjectPlugin.scala b/project/ProjectPlugin.scala
index dee9b2621..428bf6aff 100644
--- a/project/ProjectPlugin.scala
+++ b/project/ProjectPlugin.scala
@@ -111,7 +111,7 @@ object ProjectPlugin extends AutoPlugin {
         (ScoverageKeys.coverageAggregate in Test).asRunnableItemFull,
        "docs/tut".asRunnableItem
       ),
-      coverageExcludedPackages := "<empty>;github4s\\.scalaz\\..*",
+      coverageExcludedPackages := "<empty>;github4s\\.scalaz\\..*;github4s\\.cats\\.effect\\..*",
       // This is necessary to prevent packaging the BuildInfo with
       // sensible information like the Github token. Do not remove.
       mappings in (Compile, packageBin) ~= { (ms: Seq[(File, String)]) =>

From 99c963b7469d9458871ad1d3253260a586cd5882 Mon Sep 17 00:00:00 2001
From: Juan Pedro Moreno <juanpmorest@gmail.com>
Date: Tue, 6 Jun 2017 22:13:15 +0200
Subject: [PATCH 4/9] Fixes sbt dependencies for cats-effects module

---
 build.sbt                   | 2 +-
 project/ProjectPlugin.scala | 6 +++---
 project/plugins.sbt         | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/build.sbt b/build.sbt
index 873ae1f1f..d5966bd65 100644
--- a/build.sbt
+++ b/build.sbt
@@ -41,7 +41,7 @@ lazy val scalaz = (project in file("scalaz"))
 
 lazy val catsEffect = (crossProject in file("cats-effect"))
   .settings(moduleName := "github4s-cats-effect")
-  .settings(catsEffectDependencies: _*)
+  .crossDepSettings(catsEffectDependencies: _*)
   .jsSettings(sharedJsSettings: _*)
   .jsSettings(testSettings: _*)
   .dependsOn(github4s)
diff --git a/project/ProjectPlugin.scala b/project/ProjectPlugin.scala
index 428bf6aff..499f71e99 100644
--- a/project/ProjectPlugin.scala
+++ b/project/ProjectPlugin.scala
@@ -74,8 +74,8 @@ object ProjectPlugin extends AutoPlugin {
     lazy val scalazDependencies: Def.Setting[Seq[ModuleID]] =
       libraryDependencies += %%("scalaz-concurrent")
 
-    lazy val catsEffectDependencies: Def.Setting[Seq[ModuleID]] =
-      libraryDependencies ++= Seq(
+    lazy val catsEffectDependencies: Seq[ModuleID] =
+      Seq(
         %%("cats-effect"),
         %%("scalatest") % "test"
       )
@@ -109,7 +109,7 @@ object ProjectPlugin extends AutoPlugin {
       orgSupportedScalaJSVersion := Some("0.6.15"),
       orgScriptTaskListSetting ++= List(
         (ScoverageKeys.coverageAggregate in Test).asRunnableItemFull,
-       "docs/tut".asRunnableItem
+        "docs/tut".asRunnableItem
       ),
       coverageExcludedPackages := "<empty>;github4s\\.scalaz\\..*;github4s\\.cats\\.effect\\..*",
       // This is necessary to prevent packaging the BuildInfo with
diff --git a/project/plugins.sbt b/project/plugins.sbt
index e3ffb2b8c..c86948fec 100644
--- a/project/plugins.sbt
+++ b/project/plugins.sbt
@@ -1,2 +1,2 @@
 addSbtPlugin(
-  "com.47deg" % "sbt-org-policies" % "0.5.2" exclude ("io.get-coursier", "sbt-coursier"))
+  "com.47deg" % "sbt-org-policies" % "0.5.4" exclude ("io.get-coursier", "sbt-coursier"))

From 5eec89908be854dbf59c0ab878d02eb17235df26 Mon Sep 17 00:00:00 2001
From: Juan Pedro Moreno <juanpmorest@gmail.com>
Date: Tue, 6 Jun 2017 23:03:15 +0200
Subject: [PATCH 5/9] Fixes cats-effect tests for scalajs

---
 .../cats/effect/js/CatsEffectJSSpec.scala     | 50 +++++++++++++++----
 1 file changed, 41 insertions(+), 9 deletions(-)

diff --git a/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala b/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
index 02bb3934f..75b9eb8ae 100644
--- a/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
+++ b/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
@@ -20,32 +20,64 @@ import cats.effect.IO
 import github4s.Github
 import github4s.Github._
 import github4s.cats.effect.js.Implicits._
-import org.scalatest.{FlatSpec, Matchers}
+import org.scalatest.{Assertion, AsyncFunSuite, Matchers}
 import fr.hmil.roshttp.response.SimpleHttpResponse
+import github4s.GithubResponses.GHResponse
+import github4s.free.domain.User
+import org.scalactic.source.Position
+
+import scala.concurrent.{ExecutionContext, ExecutionContextExecutor, Future, Promise}
+import scala.util.Try
+
+class CatsEffectJSSpec extends AsyncFunSuite with Matchers {
+
+  implicit override def executionContext: ExecutionContextExecutor = ExecutionContext.global
+
+  def testEffectOnRunAsync[A](source: IO[GHResponse[A]], f: GHResponse[A] => Assertion)(
+      implicit pos: Position): Future[Assertion] = {
+
+    val effect  = Promise[GHResponse[A]]()
+    val attempt = Promise[Try[GHResponse[A]]]()
+    effect.future.onComplete(attempt.success)
+
+    val io = source.runAsync {
+      case Right(s) => IO(effect.success(s))
+      case Left(e)  => IO(effect.failure(e))
+    }
+
+    for (_ <- io.unsafeToFuture(); v <- attempt.future) yield {
+      v.toOption
+        .map { result =>
+          f(result)
+        }
+        .getOrElse(fail("effect attempt failed"))
+    }
+  }
 
-class CatsEffectJSSpec extends FlatSpec with Matchers {
   val accessToken     = sys.env.get("GITHUB4S_ACCESS_TOKEN")
   val headerUserAgent = Map("user-agent" -> "github4s")
   val validUsername   = "rafaparadela"
   val invalidUsername = "GHInvalidUserName"
   val okStatusCode    = 200
 
-  "cats-effect js integration" should "return a succeded result for a valid call" in {
+  test("return a succeded result for a valid call") {
     val response = Github(accessToken).users
       .get(validUsername)
       .exec[IO, SimpleHttpResponse](headerUserAgent)
 
-    val res = response.unsafeRunSync
-    res.isRight shouldBe true
-    res.right.map(_.statusCode) shouldBe Right(okStatusCode)
+    testEffectOnRunAsync(response, { r: GHResponse[User] =>
+      r.isRight shouldBe true
+      r.right.map(_.statusCode) shouldBe Right(okStatusCode)
+    })
   }
 
-  it should "return a failed result for an invalid call" in {
+  test("return a failed result for an invalid call") {
     val response = Github(accessToken).users
       .get(invalidUsername)
       .exec[IO, SimpleHttpResponse](headerUserAgent)
 
-    val res = response.unsafeRunSync
-    res.isLeft shouldBe true
+    testEffectOnRunAsync(response, { r: GHResponse[User] =>
+      r.isLeft shouldBe true
+    })
   }
 }

From db0780c31cd6caf004294ac59ed42c22c35f39a8 Mon Sep 17 00:00:00 2001
From: Ben Fradet <benjamin.fradet@gmail.com>
Date: Wed, 7 Jun 2017 18:54:30 +0100
Subject: [PATCH 6/9] docs

---
 docs/src/main/tut/docs.md | 32 +++++++++++++++++++++++++++++---
 1 file changed, 29 insertions(+), 3 deletions(-)

diff --git a/docs/src/main/tut/docs.md b/docs/src/main/tut/docs.md
index 43cee9bcf..0ccff7f89 100755
--- a/docs/src/main/tut/docs.md
+++ b/docs/src/main/tut/docs.md
@@ -56,8 +56,8 @@ an [HttpClient][http-client].
 
 The previously mentioned implicit classes carry out of the box
 instances for working with [scalaj][scalaj] (for JVM-compatible apps) and [roshttp][roshttp] (for
-scala-js-compatible apps). Take into account that in the latter case, you can only use `Future` in
-place of `M[_]`.
+scala-js-compatible apps). Take into account that in the latter case, you can only use `Future` and
+`cats.effect.IO` (if you pull in the `github4s-cats-effect` dependency) in place of `M[_]`.
 
 A few examples follow with different `MonadError[M, Throwable]`.
 
@@ -115,7 +115,6 @@ object ProgramFuture {
 ```tut:silent
 import scalaz.concurrent.Task
 import github4s.scalaz.implicits._
-import scalaj.http.HttpResponse
 
 object ProgramTask {
   val u4 = Github(accessToken).users.get("franciscodr").exec[Task, HttpResponse[String]]()
@@ -125,6 +124,33 @@ object ProgramTask {
 
 Note that you'll need a dependency to the `github4s-scalaz` pacakge to leverage `scalaz.Task`.
 
+### Using `cats.effect.IO`
+
+On the JVM:
+```scala
+import cats.effect.IO
+import github4s.cats.effect.jvm.Implicits._
+
+object ProgramTask {
+  val u5 = Github(accesstoken).users.get("juanpedromoreno").exec[IO, HttpResponse[String]]()
+  u5.unsafeRunSync
+}
+```
+
+Using scala-js:
+```scala
+import github4s.cats.effect.js.Implicits._
+import fr.hmil.roshttp.response.SimpleHttpResponse
+
+object ProgramTask {
+  val u6 = Github(accesstoken).users.get("fedefernandez").exec[IO, SimpleHttpResponse]()
+  u6.unsafeRunAsync
+}
+```
+
+Note that you'll need a dependency to the `github4s-cats-effect` package to leverage
+`cats.effect.IO`.
+
 ## Specifying custom headers
 
 The different `exec` methods let users include custom headers for any Github API request:

From d222b52ae5c63ac16894031fa0bd883166ddb8b5 Mon Sep 17 00:00:00 2001
From: Juan Pedro Moreno <juanpmorest@gmail.com>
Date: Thu, 8 Jun 2017 15:04:43 +0200
Subject: [PATCH 7/9] Fixes cats-effect docs

---
 build.sbt                 |  3 ++-
 docs/src/main/tut/docs.md | 13 ++++++++-----
 2 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/build.sbt b/build.sbt
index d5966bd65..85a2b977b 100644
--- a/build.sbt
+++ b/build.sbt
@@ -27,7 +27,7 @@ lazy val github4sJVM = github4s.jvm
 lazy val github4sJS  = github4s.js
 
 lazy val docs = (project in file("docs"))
-  .dependsOn(scalaz)
+  .dependsOn(scalaz, catsEffectJVM, catsEffectJS)
   .settings(moduleName := "github4s-docs")
   .settings(micrositeSettings: _*)
   .settings(docsDependencies: _*)
@@ -45,5 +45,6 @@ lazy val catsEffect = (crossProject in file("cats-effect"))
   .jsSettings(sharedJsSettings: _*)
   .jsSettings(testSettings: _*)
   .dependsOn(github4s)
+
 lazy val catsEffectJVM = catsEffect.jvm
 lazy val catsEffectJS  = catsEffect.js
diff --git a/docs/src/main/tut/docs.md b/docs/src/main/tut/docs.md
index 0ccff7f89..3a399699a 100755
--- a/docs/src/main/tut/docs.md
+++ b/docs/src/main/tut/docs.md
@@ -127,24 +127,27 @@ Note that you'll need a dependency to the `github4s-scalaz` pacakge to leverage
 ### Using `cats.effect.IO`
 
 On the JVM:
-```scala
+```tut:silent
 import cats.effect.IO
 import github4s.cats.effect.jvm.Implicits._
 
 object ProgramTask {
-  val u5 = Github(accesstoken).users.get("juanpedromoreno").exec[IO, HttpResponse[String]]()
+  val u5 = Github(accessToken).users.get("juanpedromoreno").exec[IO, HttpResponse[String]]()
   u5.unsafeRunSync
 }
 ```
 
 Using scala-js:
-```scala
+```tut:silent
 import github4s.cats.effect.js.Implicits._
 import fr.hmil.roshttp.response.SimpleHttpResponse
 
 object ProgramTask {
-  val u6 = Github(accesstoken).users.get("fedefernandez").exec[IO, SimpleHttpResponse]()
-  u6.unsafeRunAsync
+  val u6 = Github(accessToken).users.get("fedefernandez").exec[IO, SimpleHttpResponse]()
+  u6.unsafeRunAsync {
+    case Right(s) => // IO effect success
+    case Left(e)  => // IO effect failure
+  }
 }
 ```
 

From 8226339f7a6d7d7b0805b4b102a220a667ecaedd Mon Sep 17 00:00:00 2001
From: Ben Fradet <benjamin.fradet@gmail.com>
Date: Thu, 8 Jun 2017 18:08:50 +0100
Subject: [PATCH 8/9] cats-effect taken into account during code coverage

---
 project/ProjectPlugin.scala | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/project/ProjectPlugin.scala b/project/ProjectPlugin.scala
index 499f71e99..ed3a409e4 100644
--- a/project/ProjectPlugin.scala
+++ b/project/ProjectPlugin.scala
@@ -111,7 +111,7 @@ object ProjectPlugin extends AutoPlugin {
         (ScoverageKeys.coverageAggregate in Test).asRunnableItemFull,
         "docs/tut".asRunnableItem
       ),
-      coverageExcludedPackages := "<empty>;github4s\\.scalaz\\..*;github4s\\.cats\\.effect\\..*",
+      coverageExcludedPackages := "<empty>;github4s\\.scalaz\\..*",
       // This is necessary to prevent packaging the BuildInfo with
       // sensible information like the Github token. Do not remove.
       mappings in (Compile, packageBin) ~= { (ms: Seq[(File, String)]) =>

From c3690d24e5f2cfb8b404aed7cd05d6617189abdf Mon Sep 17 00:00:00 2001
From: Ben Fradet <benjamin.fradet@gmail.com>
Date: Fri, 9 Jun 2017 18:34:22 +0100
Subject: [PATCH 9/9] dummy test to increase coverage

---
 .../scala/github4s/cats/effect/js/CatsEffectJSSpec.scala     | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala b/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
index 75b9eb8ae..e29641058 100644
--- a/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
+++ b/cats-effect/js/src/test/scala/github4s/cats/effect/js/CatsEffectJSSpec.scala
@@ -80,4 +80,9 @@ class CatsEffectJSSpec extends AsyncFunSuite with Matchers {
       r.isLeft shouldBe true
     })
   }
+
+  // only here for the 80% coverage, to remove once JS makes use of Captures
+  test("IOCapture == IO.pure") {
+    ioCaptureInstance.capture("a") shouldBe IO.pure("a")
+  }
 }