diff --git a/casing.cabal b/casing.cabal
--- a/casing.cabal
+++ b/casing.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name: casing
-version: 0.1.4.0
+version: 0.1.4.1
 synopsis: Convert between various source code casing conventions
 description: Converts between camelCase, PascalCase, kebab-case, and three
              flavors of snake_case.
diff --git a/src/Text/Casing.hs b/src/Text/Casing.hs
--- a/src/Text/Casing.hs
+++ b/src/Text/Casing.hs
@@ -106,6 +106,7 @@
 
 -- | To @camelCase@
 toCamel :: Identifier String -> String
+toCamel (Identifier []) = ""
 toCamel (Identifier (x:xs)) = concat $ map toLower x:map wordCase xs
 
 -- | To @kebab-case@
diff --git a/tests/Spec.hs b/tests/Spec.hs
--- a/tests/Spec.hs
+++ b/tests/Spec.hs
@@ -229,6 +229,10 @@
           assertEqual ""
             "helloWorld"
             (toCamel $ Identifier ["hello", "world"])
+      , testCase "toCamel empty" $ do
+          assertEqual ""
+            ""
+            (toCamel $ Identifier [])
       ]
     , testGroup "toKebab"
       [ testCase "toKebab simple" $ do