-
Notifications
You must be signed in to change notification settings - Fork 17
/
KernelOps.scala
44 lines (31 loc) · 1.01 KB
/
KernelOps.scala
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
// Copyright (c) 2021 by Rob Norris
// This software is licensed under the MIT License (MIT).
// For more information see LICENSE or https://opensource.org/licenses/MIT
package natchez.http4s.syntax
import natchez.Kernel
import org.http4s.Headers
import org.http4s.Header
import org.typelevel.ci.CIString
trait KernelOps {
def self: Kernel
def toHttp4sHeaders: Headers =
Headers(self.toHeaders.map { case (k, v) => Header.Raw(CIString(k), v) } .toSeq)
}
trait ToKernelOps {
implicit def toKernelOps(kernel: Kernel): KernelOps =
new KernelOps {
val self = kernel
}
}
trait KernelCompanionOps {
def self: Kernel.type
def fromHttp4sHeaders(headers: Headers): Kernel =
Kernel(headers.headers.map { h => h.name.toString -> h.value } .toMap)
}
trait ToKernelCompanionOps {
implicit def toKernelCompanionOps(kernelCompanion: Kernel.type): KernelCompanionOps =
new KernelCompanionOps {
val self = kernelCompanion
}
}
object kernel extends ToKernelOps with ToKernelCompanionOps