diff --git a/quasar.cabal b/quasar.cabal index 97a4dd453acfe2ce878efe737649f9322f88a58b..dc5df0ca35b06ad5041bdfe70df2faac1221f492 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 a1c4640718027bacdf8ecb435e5fe29adc137978..e93e95f11a84db24b4af6d08f24a671c5cc2fe56 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 4b6f40003c4d83882f6dae54b635790e02dcb7c6..1b1254ca4c060245a32c2753d4e34d84f7e44589 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 0755f0eee22fc59e54df079262d6bca168e65c2b..7bf218db759385374639d1d0cb12efcf82a8aef0 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