diff --git a/CHANGELOG b/CHANGELOG
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,7 @@
+0.3.1.0
+=======
+    - Made internal function "conceit'" public.
+
 0.3.0.0
 =======
     - Incorporate the solution to issue #27 from the async package
diff --git a/conceit.cabal b/conceit.cabal
--- a/conceit.cabal
+++ b/conceit.cabal
@@ -1,5 +1,5 @@
 name:          conceit
-version:       0.3.0.0
+version:       0.3.1.0
 license:       BSD3
 license-file:  LICENSE
 data-files:    
diff --git a/src/Control/Concurrent/Conceit.hs b/src/Control/Concurrent/Conceit.hs
--- a/src/Control/Concurrent/Conceit.hs
+++ b/src/Control/Concurrent/Conceit.hs
@@ -10,6 +10,9 @@
         , _runConceit
         , conceit
         , mapConceit
+        -- * Internals
+        -- $internals
+        , conceit'
     ) where
 
 import Data.Bifunctor
@@ -156,8 +159,13 @@
             Left ex -> throwIO ex
             Right r -> collect (r:xs) m
 
--- Verbatim copy of the internal concurrently' function from async
-conceit' :: IO a -> IO b
+
+{-| 
+    Verbatim copy of the internal @concurrently'@ function from the @async@
+    package.
+-}
+conceit' :: IO a 
+         -> IO b
          -> (MVar (Either SomeException (Either a b)) -> IO r)
          -> IO r
 conceit' left right collect = do