diff --git a/Data/Random/Distribution/Uniform/Exclusive.hs b/Data/Random/Distribution/Uniform/Exclusive.hs
--- a/Data/Random/Distribution/Uniform/Exclusive.hs
+++ b/Data/Random/Distribution/Uniform/Exclusive.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 
 {- |
-Module       : Data.Random.Extras
+Module       : Data.Random.Distribution.Uniform.Exclusive
 Copyright    : 2010 Aristid Breitkreuz
 License      : BSD3
 Stability    : experimental
diff --git a/Data/Random/Dovetail.hs b/Data/Random/Dovetail.hs
--- a/Data/Random/Dovetail.hs
+++ b/Data/Random/Dovetail.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 
 {- |
-Module       : Data.Random.Extras
+Module       : Data.Random.Dovetail
 Copyright    : 2010 Aristid Breitkreuz
 License      : BSD3
 Stability    : experimental
diff --git a/Data/Random/Show/Unsafe.hs b/Data/Random/Show/Unsafe.hs
new file mode 100644
--- /dev/null
+++ b/Data/Random/Show/Unsafe.hs
@@ -0,0 +1,24 @@
+{-# LANGUAGE TypeSynonymInstances #-}
+
+{- |
+Module       : Data.Random.Show.Unsafe
+Copyright    : 2010 Aristid Breitkreuz
+License      : BSD3
+Stability    : experimental
+Portability  : portable
+
+Unsafely 'show' a 'RVar' by taking a random sample. Uses 'unsafePerformIO'.
+
+Contains an instance of 'Show' for 'RVar'.
+-}
+
+module Data.Random.Show.Unsafe
+()
+where
+
+import Data.Random.RVar
+import Data.Random.Source.DevRandom
+import System.IO.Unsafe
+
+instance (Show a) => Show (RVar a) where
+    show rv = show . unsafePerformIO $ runRVar rv DevURandom
diff --git a/Data/Random/Shuffle/Weighted.hs b/Data/Random/Shuffle/Weighted.hs
--- a/Data/Random/Shuffle/Weighted.hs
+++ b/Data/Random/Shuffle/Weighted.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleContexts #-}
 
 {- |
-Module       : Data.Random.Extras
+Module       : Data.Random.Shuffle.Weighted
 Copyright    : 2010 Aristid Breitkreuz
 License      : BSD3
 Stability    : experimental
diff --git a/README b/README
--- a/README
+++ b/README
@@ -1,4 +1,4 @@
-Random-extras 0.17
+Random-extras 0.18
 ------------------
 
 This package contains additional monadic functions for random values.
diff --git a/random-extras.cabal b/random-extras.cabal
--- a/random-extras.cabal
+++ b/random-extras.cabal
@@ -1,7 +1,7 @@
 Name:                random-extras
 
 -- http://www.haskell.org/haskellwiki/Package_versioning_policy
-Version:             0.17
+Version:             0.18
 Synopsis:            Additional functions for random values.
 Description:         Additional functions for random values, based on random-fu. Inspired by random-shuffle.
 Homepage:            http://github.com/aristidb/random-extras
@@ -20,7 +20,8 @@
         Data.Random.Distribution.Uniform.Exclusive,
         Data.Random.Dovetail,
         Data.Random.Extras,
-        Data.Random.Shuffle.Weighted
+        Data.Random.Shuffle.Weighted,
+        Data.Random.Show.Unsafe
   
   Build-depends:
         base >=4 && <5,