diff --git a/LICENSE b/LICENSE
--- a/LICENSE
+++ b/LICENSE
@@ -1,4 +1,4 @@
-Copyright Tony Day (c) 2018
+Copyright (c) 2017, Tony Day
 
 All rights reserved.
 
diff --git a/box.cabal b/box.cabal
--- a/box.cabal
+++ b/box.cabal
@@ -1,118 +1,115 @@
-cabal-version:      2.4
-name:               box
-version:            0.9.2.0
-synopsis:           A profunctor effect system.
-description:        This might be a profunctor effect system, but unlike all the others. See the project readme.org for usage and discussion: https://github.com/tonyday567/box#readme.org
-category:           project
-homepage:           https://github.com/tonyday567/box#readme
-bug-reports:        https://github.com/tonyday567/box/issues
-author:             Tony Day
-maintainer:         tonyday567@gmail.com
-copyright:          Tony Day (c) 2017
-license:            BSD-3-Clause
-license-file:       LICENSE
-build-type:         Simple
-tested-with:
-  GHC ==8.10.7 || ==9.2.8 || ==9.4.5 || ==9.6.2
-extra-source-files:
+cabal-version: 3.0
+name: box
+version: 0.9.2.1
+license: BSD-3-Clause
+license-file: LICENSE
+copyright: Tony Day (c) 2017
+category: control
+author: Tony Day
+maintainer: tonyday567@gmail.com
+homepage: https://github.com/tonyday567/box#readme
+bug-reports: https://github.com/tonyday567/box/issues
+synopsis: A profunctor effect system.
+description:
+    This might be a profunctor effect system, but unlike all the others. See the project readme.org for usage and discussion: https://github.com/tonyday567/box#readme.org
+build-type: Simple
+tested-with: GHC ==8.10.7 || ==9.2.8 || ==9.4.7 || ==9.6.3 || ==9.8.1
 
 source-repository head
-  type:     git
-  location: https://github.com/tonyday567/box
-
-common ghc2021-stanza
-  if impl(ghc >=9.2)
-    default-language:
-      GHC2021
-  if impl(ghc <9.2)
-    default-language:
-      Haskell2010
-    default-extensions:
-      BangPatterns
-      BinaryLiterals
-      ConstrainedClassMethods
-      ConstraintKinds
-      DeriveDataTypeable
-      DeriveFoldable
-      DeriveFunctor
-      DeriveGeneric
-      DeriveLift
-      DeriveTraversable
-      DoAndIfThenElse
-      EmptyCase
-      EmptyDataDecls
-      EmptyDataDeriving
-      ExistentialQuantification
-      ExplicitForAll
-      FlexibleContexts
-      FlexibleInstances
-      ForeignFunctionInterface
-      GADTSyntax
-      GeneralisedNewtypeDeriving
-      HexFloatLiterals
-      ImplicitPrelude
-      InstanceSigs
-      KindSignatures
-      MonomorphismRestriction
-      MultiParamTypeClasses
-      NamedFieldPuns
-      NamedWildCards
-      NumericUnderscores
-      PatternGuards
-      PolyKinds
-      PostfixOperators
-      RankNTypes
-      RelaxedPolyRec
-      ScopedTypeVariables
-      StandaloneDeriving
-      StarIsType
-      TraditionalRecordSyntax
-      TupleSections
-      TypeApplications
-      TypeOperators
-      TypeSynonymInstances
-  if impl(ghc <9.2) && impl(ghc >=8.10)
-    default-extensions:
-      ImportQualifiedPost
-      StandaloneKindSignatures
+    type: git
+    location: https://github.com/tonyday567/box
 
 common ghc-options-stanza
-  ghc-options:
-    -Wall
-    -Wcompat
-    -Wincomplete-record-updates
-    -Wincomplete-uni-patterns
-    -Wredundant-constraints
+    ghc-options:
+        -Wall
+        -Wcompat
+        -Wincomplete-record-updates
+        -Wincomplete-uni-patterns
+        -Wredundant-constraints
 
-library
-  import: ghc2021-stanza
-  import: ghc-options-stanza
-  exposed-modules:
-    Box
-    Box.Box
-    Box.Codensity
-    Box.Committer
-    Box.Connectors
-    Box.Emitter
-    Box.Functor
-    Box.IO
-    Box.Queue
-    Box.Time
+common ghc2021-stanza
+    if impl ( ghc >= 9.2 )
+        default-language: GHC2021
 
-  hs-source-dirs:     src
-  build-depends:
-    , async           ^>= 2.2
-    , base            >=4.7 && <5
-    , bytestring      >=0.11 && <0.13
-    , containers      ^>=0.6
-    , contravariant   ^>=1.5
-    , dlist           ^>=1.0
-    , exceptions      ^>=0.10
-    , kan-extensions  ^>=5.2
-    , mtl             >=2.2.2 && <2.4
-    , profunctors     ^>=5.6
-    , semigroupoids   >=5.3 && <6.1
-    , stm             ^>= 2.5.1
-    , text            >=1.2 && < 2.1
-    , time            >=1.9 && <1.13
+    if impl ( ghc < 9.2 )
+        default-language: Haskell2010
+        default-extensions:
+            BangPatterns
+            BinaryLiterals
+            ConstrainedClassMethods
+            ConstraintKinds
+            DeriveDataTypeable
+            DeriveFoldable
+            DeriveFunctor
+            DeriveGeneric
+            DeriveLift
+            DeriveTraversable
+            DoAndIfThenElse
+            EmptyCase
+            EmptyDataDecls
+            EmptyDataDeriving
+            ExistentialQuantification
+            ExplicitForAll
+            FlexibleContexts
+            FlexibleInstances
+            ForeignFunctionInterface
+            GADTSyntax
+            GeneralisedNewtypeDeriving
+            HexFloatLiterals
+            ImplicitPrelude
+            InstanceSigs
+            KindSignatures
+            MonomorphismRestriction
+            MultiParamTypeClasses
+            NamedFieldPuns
+            NamedWildCards
+            NumericUnderscores
+            PatternGuards
+            PolyKinds
+            PostfixOperators
+            RankNTypes
+            RelaxedPolyRec
+            ScopedTypeVariables
+            StandaloneDeriving
+            StarIsType
+            TraditionalRecordSyntax
+            TupleSections
+            TypeApplications
+            TypeOperators
+            TypeSynonymInstances
 
+    if impl ( ghc < 9.2 ) && impl ( ghc >= 8.10 )
+        default-extensions:
+            ImportQualifiedPost
+            StandaloneKindSignatures
+
+library
+    import: ghc-options-stanza
+    import: ghc2021-stanza
+    hs-source-dirs: src
+    build-depends:
+        , async          >=2.2 && <2.3
+        , base           >=4.7 && <5
+        , bytestring     >=0.11.3 && <0.13
+        , containers     >=0.6 && <0.8
+        , contravariant  >=1.5 && <1.6
+        , dlist          >=1.0 && <1.1
+        , exceptions     >=0.10 && <0.11
+        , kan-extensions >=5.2 && <5.3
+        , mtl            >=2.2.2 && <2.4
+        , profunctors    >=5.6.2 && <5.7
+        , semigroupoids  >=5.3 && <6.1
+        , stm            >=2.5.1 && <2.6
+        , text           >=1.2 && <2.2
+        , time           >=1.9 && <1.13
+    exposed-modules:
+        Box
+        Box.Box
+        Box.Codensity
+        Box.Committer
+        Box.Connectors
+        Box.Emitter
+        Box.Functor
+        Box.IO
+        Box.Queue
+        Box.Time
diff --git a/src/Box/Connectors.hs b/src/Box/Connectors.hs
--- a/src/Box/Connectors.hs
+++ b/src/Box/Connectors.hs
@@ -86,9 +86,9 @@
 
 -- | Create a finite Committer Unbounded Queue.
 --
--- >>> glue <$> sink 2 print <*|> qList [1..3]
--- 1
--- 2
+-- > glue <$> sink 2 print <*|> qList [1..3]
+-- > 1
+-- > 2
 sink :: Int -> (a -> IO ()) -> CoCommitter IO a
 sink n f = sinkWith Unbounded n f