From 1e027212cac8770711c480865bd0e358ca0dc6c2 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 27 Feb 2022 01:27:56 +0100
Subject: [PATCH] Rename module to ExceptionSink
Co-authored-by: Jan Beinke <git@janbeinke.com>
---
quasar.cabal | 2 +-
src/Quasar/Exceptions/{ExceptionChannel.hs => ExceptionSink.hs} | 2 +-
src/Quasar/MonadQuasar/Misc.hs | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
rename src/Quasar/Exceptions/{ExceptionChannel.hs => ExceptionSink.hs} (98%)
diff --git a/quasar.cabal b/quasar.cabal
index 2415097..2b23db3 100644
--- a/quasar.cabal
+++ b/quasar.cabal
@@ -91,7 +91,7 @@ library
Quasar.Async
Quasar.Awaitable
Quasar.Exceptions
- Quasar.Exceptions.ExceptionChannel
+ Quasar.Exceptions.ExceptionSink
Quasar.MonadQuasar
Quasar.MonadQuasar.Misc
Quasar.Observable
diff --git a/src/Quasar/Exceptions/ExceptionChannel.hs b/src/Quasar/Exceptions/ExceptionSink.hs
similarity index 98%
rename from src/Quasar/Exceptions/ExceptionChannel.hs
rename to src/Quasar/Exceptions/ExceptionSink.hs
index 3109a90..5f98a0c 100644
--- a/src/Quasar/Exceptions/ExceptionChannel.hs
+++ b/src/Quasar/Exceptions/ExceptionSink.hs
@@ -1,4 +1,4 @@
-module Quasar.Exceptions.ExceptionChannel (
+module Quasar.Exceptions.ExceptionSink (
panicChannel,
loggingExceptionChannel,
newExceptionChannelWitness,
diff --git a/src/Quasar/MonadQuasar/Misc.hs b/src/Quasar/MonadQuasar/Misc.hs
index 0c69435..aee169f 100644
--- a/src/Quasar/MonadQuasar/Misc.hs
+++ b/src/Quasar/MonadQuasar/Misc.hs
@@ -18,7 +18,7 @@ import Data.List.NonEmpty
import Quasar.Awaitable
import Quasar.Async
import Quasar.Async.STMHelper
-import Quasar.Exceptions.ExceptionChannel
+import Quasar.Exceptions.ExceptionSink
import Quasar.MonadQuasar
import Quasar.Prelude
import Quasar.Resources
--
GitLab