/
ErrorAction.scala
92 lines (83 loc) · 2.92 KB
/
ErrorAction.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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
/*
* Copyright 2014 http4s.org
*
* 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 org.http4s.server
package middleware
import cats.data.{Kleisli, OptionT}
import cats._
import cats.syntax.all._
import org.http4s._
object ErrorAction {
def apply[F[_]: ApplicativeThrow, G[_], B](
k: Kleisli[F, Request[G], B],
f: (Request[G], Throwable) => F[Unit]
): Kleisli[F, Request[G], B] =
Kleisli { req =>
k.run(req).onError { case e => f(req, e) }
}
def log[F[_]: ApplicativeThrow, G[_], B](
http: Kleisli[F, Request[G], B],
messageFailureLogAction: (Throwable, => String) => F[Unit],
serviceErrorLogAction: (Throwable, => String) => F[Unit]
): Kleisli[F, Request[G], B] =
apply(
http,
{
case (req, mf: MessageFailure) =>
messageFailureLogAction(
mf,
s"""Message failure handling request: ${req.method} ${req.pathInfo} from ${req.remoteAddr
.getOrElse("<unknown>")}"""
)
case (req, e) =>
serviceErrorLogAction(
e,
s"""Error servicing request: ${req.method} ${req.pathInfo} from ${req.remoteAddr
.getOrElse("<unknown>")}"""
)
}
)
object httpApp {
def apply[F[_]: ApplicativeThrow](
httpApp: HttpApp[F],
f: (Request[F], Throwable) => F[Unit]): HttpApp[F] =
ErrorAction(httpApp, f)
def log[F[_]: ApplicativeThrow, G[_], B](
httpApp: HttpApp[F],
messageFailureLogAction: (Throwable, => String) => F[Unit],
serviceErrorLogAction: (Throwable, => String) => F[Unit]
): HttpApp[F] =
ErrorAction.log(httpApp, messageFailureLogAction, serviceErrorLogAction)
}
object httpRoutes {
def apply[F[_]: MonadThrow](
httpRoutes: HttpRoutes[F],
f: (Request[F], Throwable) => F[Unit]): HttpRoutes[F] =
ErrorAction(httpRoutes, liftFToOptionT(f))
def log[F[_]: MonadThrow](
httpRoutes: HttpRoutes[F],
messageFailureLogAction: (Throwable, => String) => F[Unit],
serviceErrorLogAction: (Throwable, => String) => F[Unit]
): HttpRoutes[F] =
ErrorAction.log(
httpRoutes,
liftFToOptionT(messageFailureLogAction),
liftFToOptionT(serviceErrorLogAction)
)
private def liftFToOptionT[F[_]: Functor, A, B, C](
f: Function2[A, B, F[C]]): Function2[A, B, OptionT[F, C]] =
(a: A, b: B) => OptionT.liftF(f(a, b))
}
}