diff --git a/mockcat.cabal b/mockcat.cabal
--- a/mockcat.cabal
+++ b/mockcat.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           mockcat
-version:        0.3.0.0
+version:        0.3.1.0
 synopsis:       Mock library for test in Haskell.
 description:    mockcat is a mock library for testing Haskell.
                 .
diff --git a/src/Test/MockCat/TH.hs b/src/Test/MockCat/TH.hs
--- a/src/Test/MockCat/TH.hs
+++ b/src/Test/MockCat/TH.hs
@@ -31,9 +31,10 @@
       Extension(..) )
 import Language.Haskell.TH.PprLib (Doc, hcat, parens, text)
 import Language.Haskell.TH.Syntax (nameBase)
-import Test.MockCat.Param (Param(..))
-import Test.MockCat.Cons ((:>))
+import Test.MockCat.Param
+import Test.MockCat.Cons
 import Test.MockCat.MockT
+import Test.MockCat.Mock
 import Data.Data (Proxy(..))
 import Data.List (find, nub, elemIndex)
 import GHC.TypeLits (KnownSymbol, symbolVal)
@@ -43,9 +44,9 @@
 import GHC.IO (unsafePerformIO)
 import Language.Haskell.TH.Lib
 import Data.Text (splitOn, unpack, pack)
-import Test.MockCat.Mock (MockBuilder)
 import Control.Monad (guard, unless)
 import Data.Function ((&))
+import Prelude as P
 
 showExp :: Q Exp -> Q String
 showExp qexp = show . pprintExp <$> qexp
@@ -204,7 +205,7 @@
   newCxt <- createCxt monadVarName cxt
   m <- appT (conT ''Monad) (varT monadVarName)
 
-  let hasMonad = any (\(ClassName2VarNames c _) -> c == ''Monad) $ toClassInfos newCxt
+  let hasMonad = P.any (\(ClassName2VarNames c _) -> c == ''Monad) $ toClassInfos newCxt
 
   instanceDec <- instanceD
     (pure $ newCxt ++ ([m | not hasMonad]))
@@ -411,7 +412,7 @@
 updateType ty _ = ty
 
 hasClass :: Name -> [VarAppliedType] -> Bool
-hasClass varName = any (\(VarAppliedType v c) -> (v == varName) && isJust c)
+hasClass varName = P.any (\(VarAppliedType v c) -> (v == varName) && isJust c)
 
 findClass :: Name -> [VarAppliedType] -> Maybe Name
 findClass varName types = do
diff --git a/test/Test/MockCat/TypeClassTHSpec.hs b/test/Test/MockCat/TypeClassTHSpec.hs
--- a/test/Test/MockCat/TypeClassTHSpec.hs
+++ b/test/Test/MockCat/TypeClassTHSpec.hs
@@ -13,10 +13,10 @@
 
 module Test.MockCat.TypeClassTHSpec (spec) where
 
-import Prelude hiding (readFile, writeFile)
+import Prelude hiding (readFile, writeFile, any)
 import Data.Text (Text, pack, isInfixOf)
 import Test.Hspec
-import Test.MockCat as M
+import Test.MockCat (makeMock, makeMockWithOptions, createStubFn, options, MockOptions(..), runMockT, (|>), any, applyTimesIs, neverApply)
 import Control.Monad.State
 import Control.Monad.Reader (MonadReader, ask)
 import Control.Monad (unless)
@@ -132,7 +132,7 @@
   it "Read, and output files (contain ng word)" do
     result <- runMockT do
       _readFile ("input.txt" |> pack "contains ngWord")
-      _writeFile ("output.txt" |> M.any |> ()) `applyTimesIs` 0
+      _writeFile ("output.txt" |> any |> ()) `applyTimesIs` 0
       operationProgram "input.txt" "output.txt"
 
     result `shouldBe` ()
@@ -140,7 +140,7 @@
   it "Read, and output files (contain ng word)2" do
     result <- runMockT do
       _readFile ("input.txt" |> pack "contains ngWord")
-      neverApply $ _writeFile ("output.txt" |> M.any |> ())
+      neverApply $ _writeFile ("output.txt" |> any |> ())
       operationProgram "input.txt" "output.txt"
 
     result `shouldBe` ()