From eb0481463328e1dd9843294933afbe09f89a732d Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sat, 12 Feb 2022 01:31:36 +0100
Subject: [PATCH] Move old async modules to Quasar.Old namespace
---
quasar.cabal | 4 ++--
src/Quasar/{ => Old}/Async.hs | 4 ++--
src/Quasar/{Async/Unmanaged.hs => Old/UnmanagedAsync.hs} | 2 +-
src/Quasar/ResourceManager.hs | 2 +-
4 files changed, 6 insertions(+), 6 deletions(-)
rename src/Quasar/{ => Old}/Async.hs (98%)
rename src/Quasar/{Async/Unmanaged.hs => Old/UnmanagedAsync.hs} (99%)
diff --git a/quasar.cabal b/quasar.cabal
index 97a4dd4..dc5df0c 100644
--- a/quasar.cabal
+++ b/quasar.cabal
@@ -85,8 +85,6 @@ library
unordered-containers,
exposed-modules:
Quasar
- Quasar.Async
- Quasar.Async.Unmanaged
Quasar.Async.STMHelper
Quasar.Async.V2
Quasar.Awaitable
@@ -97,6 +95,8 @@ library
Quasar.Observable.Delta
Quasar.Observable.ObservableHashMap
Quasar.Observable.ObservablePriority
+ Quasar.Old.Async
+ Quasar.Old.UnmanagedAsync
Quasar.Prelude
Quasar.PreludeExtras
Quasar.ResourceManager
diff --git a/src/Quasar/Async.hs b/src/Quasar/Old/Async.hs
similarity index 98%
rename from src/Quasar/Async.hs
rename to src/Quasar/Old/Async.hs
index a1c4640..e93e95f 100644
--- a/src/Quasar/Async.hs
+++ b/src/Quasar/Old/Async.hs
@@ -1,4 +1,4 @@
-module Quasar.Async (
+module Quasar.Old.Async (
-- * Async
Async,
async,
@@ -23,8 +23,8 @@ module Quasar.Async (
import Control.Monad.Catch
import Control.Monad.Reader
-import Quasar.Async.Unmanaged
import Quasar.Disposable
+import Quasar.Old.UnmanagedAsync
import Quasar.Prelude
import Quasar.ResourceManager
diff --git a/src/Quasar/Async/Unmanaged.hs b/src/Quasar/Old/UnmanagedAsync.hs
similarity index 99%
rename from src/Quasar/Async/Unmanaged.hs
rename to src/Quasar/Old/UnmanagedAsync.hs
index 4b6f400..1b1254c 100644
--- a/src/Quasar/Async/Unmanaged.hs
+++ b/src/Quasar/Old/UnmanagedAsync.hs
@@ -1,4 +1,4 @@
-module Quasar.Async.Unmanaged (
+module Quasar.Old.UnmanagedAsync (
-- ** Unmanaged variant
Async,
unmanagedAsync,
diff --git a/src/Quasar/ResourceManager.hs b/src/Quasar/ResourceManager.hs
index 0755f0e..7bf218d 100644
--- a/src/Quasar/ResourceManager.hs
+++ b/src/Quasar/ResourceManager.hs
@@ -55,10 +55,10 @@ import Data.HashMap.Strict qualified as HM
import Data.List.NonEmpty ((<|), nonEmpty)
import Data.Sequence (Seq(..), (|>))
import Data.Sequence qualified as Seq
-import Quasar.Async.Unmanaged
import Quasar.Awaitable
import Quasar.Disposable
import Quasar.Exceptions
+import Quasar.Old.UnmanagedAsync
import Quasar.Prelude
import Quasar.Utils.Exceptions
--
GitLab