diff --git a/character-cases.cabal b/character-cases.cabal
--- a/character-cases.cabal
+++ b/character-cases.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: 8fb42b05c6e98302050fa2939fb2dc2521a5a515271a9a8597dddc2b8a88aa32
+-- hash: 76ea8adb77b52407f4c86dd5e73905938904b984acc8d7dcb0200bb23aed5ca2
 
 name:           character-cases
-version:        0.1.0.2
+version:        0.1.0.3
 synopsis:       Exposes subspecies types of Char. And naming cases.
 description:    e.g. meaning of [a-z], [A-Z], [0-9], PascalCase, camelCase, and snake_case. Please see https://github.com/aiya000/hs-character-cases#README.md
 category:       Simple
diff --git a/src/Data/String/Cases.hs b/src/Data/String/Cases.hs
--- a/src/Data/String/Cases.hs
+++ b/src/Data/String/Cases.hs
@@ -149,14 +149,14 @@
   deriving (Show, Eq)
 
 instance Pretty Snake where
-  pretty = String.fromString . unSnakeCase
+  pretty = String.fromString . unSnake
 
-unSnakeCase :: Snake -> String
-unSnakeCase (Snake x xs) =
+unSnake :: Snake -> String
+unSnake (Snake x xs) =
   unSnakeHeadChar x : map unSnakeChar xs
 
-parseSnakeCase :: CodeParsing m => m Snake
-parseSnakeCase =
+parseSnake :: CodeParsing m => m Snake
+parseSnake =
   Snake <$>
   snakeHeadChar <*>
   P.many snakeChar