diff --git a/cases.cabal b/cases.cabal
--- a/cases.cabal
+++ b/cases.cabal
@@ -1,11 +1,11 @@
 name:
   cases
 version:
-  0.1.0
+  0.1.1
 synopsis:
-  A converter for spinal, snake and camel case
+  A converter for spinal, snake and camel cases
 description:
-  A parser-based converter library for spinal, snake and camel case.
+  A parser-based converter library for spinal, snake and camel cases.
 category:
   Text
 homepage:
@@ -43,16 +43,10 @@
   exposed-modules:
     Cases
   build-depends:
-    -- data:
-    attoparsec >= 0.10 && < 0.12,
+    attoparsec >= 0.10 && < 0.13,
     text,
-    -- control:
-    mtl,
-    -- debugging:
     loch-th == 0.2.*,
-    placeholders == 0.1.*,
-    -- general:
-    base >= 4.5 && < 5
+    base-prelude >= 0.1.4 && < 0.2
   default-extensions:
     Arrows
     BangPatterns
diff --git a/library/Cases.hs b/library/Cases.hs
--- a/library/Cases.hs
+++ b/library/Cases.hs
@@ -21,8 +21,7 @@
 
 import Cases.Prelude hiding (Word)
 import qualified Data.Attoparsec.Text as A
-import qualified Data.Text as TS
-import qualified Data.Char as C
+import qualified Data.Text as T
 
 
 -- * Part
@@ -30,12 +29,12 @@
 
 -- | A parsed info and a text of a part.
 data Part = 
-  Word Case TS.Text |
-  Digits TS.Text
+  Word Case T.Text |
+  Digits T.Text
 
 data Case = Title | Upper | Lower
 
-partToText :: Part -> TS.Text
+partToText :: Part -> T.Text
 partToText = \case
   Word _ t -> t
   Digits t -> t
@@ -45,24 +44,24 @@
 -------------------------
 
 upperParser :: A.Parser Part
-upperParser = Word Upper <$> TS.pack <$> A.many1 char where
+upperParser = Word Upper <$> T.pack <$> A.many1 char where
   char = do
-    c <- A.satisfy C.isUpper
-    ok <- maybe True (not . C.isLower) <$> A.peekChar
+    c <- A.satisfy isUpper
+    ok <- maybe True (not . isLower) <$> A.peekChar
     if ok
       then return c
       else empty
 
 lowerParser :: A.Parser Part
-lowerParser = Word Lower <$> (A.takeWhile1 C.isLower)
+lowerParser = Word Lower <$> (A.takeWhile1 isLower)
 
 titleParser :: A.Parser Part
-titleParser = Word Title <$> (TS.cons <$> headChar <*> remainder) where
-  headChar = A.satisfy C.isUpper
-  remainder = A.takeWhile1 C.isLower
+titleParser = Word Title <$> (T.cons <$> headChar <*> remainder) where
+  headChar = A.satisfy isUpper
+  remainder = A.takeWhile1 isLower
 
 digitsParser :: A.Parser Part
-digitsParser = Digits <$> (A.takeWhile1 C.isDigit)
+digitsParser = Digits <$> (A.takeWhile1 isDigit)
 
 partParser :: A.Parser Part
 partParser = titleParser <|> upperParser <|> lowerParser <|> digitsParser
@@ -82,7 +81,7 @@
 
 type Folder r = r -> Part -> r
 
-type Delimiter = Folder (Maybe TS.Text)
+type Delimiter = Folder (Maybe T.Text)
 
 spinal :: Delimiter
 spinal = 
@@ -111,10 +110,10 @@
 lower = \case
   Word c t -> Word Lower t' where
     t' = case c of
-      Title -> TS.uncons t |> \case
+      Title -> T.uncons t |> \case
         Nothing -> t
-        Just (h, t) -> TS.cons (C.toLower h) t
-      Upper -> TS.toLower t
+        Just (h, t) -> T.cons (toLower h) t
+      Upper -> T.toLower t
       Lower -> t
   p -> p
 
@@ -122,11 +121,11 @@
 upper = \case
   Word c t -> Word Upper t' where
     t' = case c of
-      Title -> TS.uncons t |> \case
+      Title -> T.uncons t |> \case
         Nothing -> t
-        Just (h, t) -> TS.cons h (TS.toUpper t)
+        Just (h, t) -> T.cons h (T.toUpper t)
       Upper -> t
-      Lower -> TS.toUpper t
+      Lower -> T.toUpper t
   p -> p
 
 title :: CaseTransformer
@@ -134,12 +133,12 @@
   Word c t -> Word Title t' where
     t' = case c of
       Title -> t
-      Upper -> TS.uncons t |> \case
+      Upper -> T.uncons t |> \case
         Nothing -> t  
-        Just (h, t) -> TS.cons (C.toUpper h) (TS.toLower t)
-      Lower -> TS.uncons t |> \case
+        Just (h, t) -> T.cons (toUpper h) (T.toLower t)
+      Lower -> T.uncons t |> \case
         Nothing -> t
-        Just (h, t) -> TS.cons (C.toUpper h) t
+        Just (h, t) -> T.cons (toUpper h) t
   p -> p
 
 
@@ -151,7 +150,7 @@
 -- produce a new text using case transformation and delimiter functions.
 -- 
 -- Note: to skip case transformation use the 'id' function.
-process :: CaseTransformer -> Delimiter -> TS.Text -> TS.Text
+process :: CaseTransformer -> Delimiter -> T.Text -> T.Text
 process tr fo = 
   fromMaybe "" .
   either ($bug . ("Parse failure: " <>)) id .
@@ -161,14 +160,14 @@
 -- Transform an arbitrary text into a lower spinal case.
 -- 
 -- Same as @('process' 'lower' 'spinal')@.
-spinalize :: TS.Text -> TS.Text
+spinalize :: T.Text -> T.Text
 spinalize = process lower spinal
 
 -- |
 -- Transform an arbitrary text into a lower snake case.
 -- 
 -- Same as @('process' 'lower' 'snake')@.
-snakify :: TS.Text -> TS.Text
+snakify :: T.Text -> T.Text
 snakify = process lower snake
 
 -- |
@@ -176,6 +175,6 @@
 -- while preserving the case of the first character.
 -- 
 -- Same as @('process' 'id' 'camel')@.
-camelize :: TS.Text -> TS.Text
+camelize :: T.Text -> T.Text
 camelize = process id camel
 
diff --git a/library/Cases/Prelude.hs b/library/Cases/Prelude.hs
--- a/library/Cases/Prelude.hs
+++ b/library/Cases/Prelude.hs
@@ -2,7 +2,6 @@
 ( 
   module Exports,
 
-  traceM,
   bug,
   bottom,
 
@@ -15,55 +14,11 @@
 
 -- base
 -------------------------
-import Prelude as Exports hiding (concat, foldr, mapM_, sequence_, foldl1, maximum, minimum, product, sum, all, and, any, concatMap, elem, foldl, foldr1, notElem, or, mapM, sequence, FilePath, id, (.))
-import Control.Monad as Exports hiding (mapM_, sequence_, forM_, msum, mapM, sequence, forM)
-import Control.Applicative as Exports
-import Control.Arrow as Exports hiding (left, right)
-import Control.Category as Exports
-import Data.Monoid as Exports
-import Data.Foldable as Exports
-import Data.Traversable as Exports hiding (for)
-import Data.Maybe as Exports
-import Data.Either as Exports
-import Data.List as Exports hiding (concat, foldr, foldl1, maximum, minimum, product, sum, all, and, any, concatMap, elem, foldl, foldr1, notElem, or, find, maximumBy, minimumBy, mapAccumL, mapAccumR, foldl')
-import Data.Tuple as Exports
-import Data.Function as Exports hiding ((.), id)
-import Data.Ord as Exports (Down(..))
-import Data.String as Exports
-import Data.Int as Exports
-import Data.Word as Exports
-import Data.Ratio as Exports
-import Data.Fixed as Exports
-import Data.Ix as Exports
-import Data.Data as Exports
-import Text.Read as Exports (readMaybe, readEither)
-import Control.Exception as Exports hiding (tryJust, try, assert)
-import Control.Concurrent as Exports hiding (yield)
-import System.Mem as Exports
-import System.Mem.StableName as Exports
-import System.Timeout as Exports
-import System.Exit as Exports
-import System.IO.Unsafe as Exports
-import System.IO as Exports (Handle, hClose)
-import System.IO.Error as Exports
-import Unsafe.Coerce as Exports
-import GHC.Generics as Exports (Generic)
-import GHC.IO.Exception as Exports
-import Data.IORef as Exports
-import Data.STRef as Exports
-import Control.Monad.ST as Exports
-import Debug.Trace as Exports hiding (traceM)
-
--- placeholders
--------------------------
-import Development.Placeholders as Exports
+import BasePrelude as Exports
 
 -- custom
 -------------------------
 import qualified Debug.Trace.LocationTH
-
-traceM :: (Monad m) => String -> m ()
-traceM s = trace s $ return ()
 
 bug = [e| $(Debug.Trace.LocationTH.failure) . (msg <>) |]
   where