diff --git a/Test/FileLocation.hs b/Test/FileLocation.hs
--- a/Test/FileLocation.hs
+++ b/Test/FileLocation.hs
@@ -7,20 +7,29 @@
 import Control.Monad.IO.Class (liftIO)
 
 -- | A version of assertEqual that gives location information.
---
--- TODO: push upstream to file-location
 assertEq :: Q Exp
 assertEq = do
   loc <- location
   let prefix = locationToString loc ++ " "
-  [|(\x -> liftIO . HUnit.assertEqual prefix x)|]
+  [|(\x -> HUnit.assertEqual prefix x)|]
 
 -- | a MonadIO version of assertBool that gives location information.
---
--- TODO: push upstream to file-location
 assertB :: Q Exp
 assertB = do
   loc <- location
   let prefix = locationToString loc ++ "assertB "
-  [|(liftIO . HUnit.assertBool prefix)|]
+  [|(HUnit.assertBool prefix)|]
 
+-- | Same as 'assertEq', but uses 'liftIO'
+assertEq' :: Q Exp
+assertEq' = do
+  loc <- location
+  let prefix = locationToString loc ++ " "
+  [|(\x -> liftIO . HUnit.assertEqual prefix x)|]
+
+-- | Same as 'assertB, but uses 'liftIO'
+assertB' :: Q Exp
+assertB' = do
+  loc <- location
+  let prefix = locationToString loc ++ "assertB "
+  [|(liftIO . HUnit.assertBool prefix)|]
diff --git a/file-location.cabal b/file-location.cabal
--- a/file-location.cabal
+++ b/file-location.cabal
@@ -1,5 +1,5 @@
 Name:                file-location
-Version:             0.4.8
+Version:             0.4.9
 Synopsis:            common functions that show file location information
 Homepage:            https://github.com/gregwebs/FileLocation.hs
 License:             BSD3