diff --git a/random-source.cabal b/random-source.cabal
--- a/random-source.cabal
+++ b/random-source.cabal
@@ -1,12 +1,12 @@
 name:                   random-source
-version:                0.3.0.2
+version:                0.3.0.4
 stability:              provisional
 
 cabal-version:          >= 1.6
 build-type:             Simple
 
-author:                 James Cook <james.cook@usma.edu>
-maintainer:             James Cook <james.cook@usma.edu>
+author:                 James Cook <mokus@deepbondi.net>
+maintainer:             James Cook <mokus@deepbondi.net>
 license:                PublicDomain
 homepage:               https://github.com/mokus0/random-fu
 
@@ -19,14 +19,16 @@
                         easy to define new entropy sources in a way that
                         is naturally forward-compatible.
                         .
+                        Changes in 0.3.0.4: Fixed a typo that broke building
+                        with MTL-1
+                        .
+                        Changes in 0.3.0.3: Fixes for GHC's deprecation
+                        of Foreign.unsafePerformIO
+                        .
                         Changes in 0.3.0.2: Fixes for GHC 7.2.*'s crazy
                         Template Haskell changes.
-                        .
-                        Changes in 0.3.0.1: None except setting dependency
-                        on flexible-defaults >= 0.0.0.2.
 
-tested-with:            GHC == 6.8.3, GHC == 6.10.4, GHC == 6.12.3,
-                        GHC == 7.0.4, GHC == 7.2.1, GHC == 7.2.2
+tested-with:            GHC == 7.4.2, GHC == 7.6.1
 
 source-repository head
   type:                 git
diff --git a/src/Data/Random/Internal/Words.hs b/src/Data/Random/Internal/Words.hs
--- a/src/Data/Random/Internal/Words.hs
+++ b/src/Data/Random/Internal/Words.hs
@@ -1,11 +1,12 @@
-{-
- -      ``Data/Random/Internal/Words''
- -}
-
 -- |A few little functions I found myself writing inline over and over again.
 module Data.Random.Internal.Words where
 
-import Foreign
+import Data.Bits
+import Data.Word
+import Foreign.Marshal  (allocaBytes)
+import Foreign.Ptr      (castPtr)
+import Foreign.Storable (peek, pokeByteOff)
+import System.IO.Unsafe (unsafePerformIO)
 
 -- TODO: add a build flag for endianness-invariance, or just find a way
 -- to make sure these operations all do the right thing without costing 
diff --git a/src/Data/Random/Source/DevRandom.hs b/src/Data/Random/Source/DevRandom.hs
--- a/src/Data/Random/Source/DevRandom.hs
+++ b/src/Data/Random/Source/DevRandom.hs
@@ -8,8 +8,11 @@
 
 import Data.Random.Source
 
+import Foreign.Marshal (allocaBytes)
+import Foreign.Ptr (castPtr)
+import Foreign.Storable (peek)
 import System.IO (openBinaryFile, hGetBuf, Handle, IOMode(..))
-import Foreign
+import System.IO.Unsafe (unsafePerformIO)
 
 -- |On systems that have it, \/dev\/random is a handy-dandy ready-to-use source
 -- of nonsense.  Keep in mind that on some systems, Linux included, \/dev\/random
diff --git a/src/Data/Random/Source/PureMT.hs b/src/Data/Random/Source/PureMT.hs
--- a/src/Data/Random/Source/PureMT.hs
+++ b/src/Data/Random/Source/PureMT.hs
@@ -47,7 +47,7 @@
 #ifndef MTL2
 
 $(monadRandom
-    [d| instance MonadRandom (State PureMT) |] where
+    [d| instance MonadRandom (State PureMT) where
             getRandomWord64 = withMTState randomWord64
             getRandomDouble = withMTState randomDouble
      |])