diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+## 2.2.0.1
+*   Fixed a [bug](https://github.com/cdepillabout/pretty-simple/pull/41) where
+    the parser failed to parse escaped quotation marks in string literals.
+    Thanks [Andreas](https://github.com/anka-213)!
+
 
 ## 2.2.0.0
 
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -181,7 +181,7 @@
 must enable the `buildexe` flag, since it will not be built by default:
 
 ```sh
-$ stack install pretty-simple-2.0.2.1 --flag pretty-simple:buildexe
+$ stack install pretty-simple-2.2.0.1 --flag pretty-simple:buildexe
 ```
 
 When run on the command line, you can paste in the Haskell datatype you want to
diff --git a/pretty-simple.cabal b/pretty-simple.cabal
--- a/pretty-simple.cabal
+++ b/pretty-simple.cabal
@@ -1,5 +1,5 @@
 name:                pretty-simple
-version:             2.2.0.0
+version:             2.2.0.1
 synopsis:            pretty printer for data types with a 'Show' instance.
 description:         Please see <https://github.com/cdepillabout/pretty-simple#readme README.md>.
 homepage:            https://github.com/cdepillabout/pretty-simple
diff --git a/src/Text/Pretty/Simple/Internal/ExprParser.hs b/src/Text/Pretty/Simple/Internal/ExprParser.hs
--- a/src/Text/Pretty/Simple/Internal/ExprParser.hs
+++ b/src/Text/Pretty/Simple/Internal/ExprParser.hs
@@ -58,12 +58,16 @@
 parseStringLit :: String -> (String, String)
 parseStringLit [] = ("", "")
 parseStringLit ('"':rest) = ("", rest)
+parseStringLit ('\\':c:cs) = ('\\':c:cs', rest)
+  where (cs', rest) = parseStringLit cs
 parseStringLit (c:cs)   = (c:cs', rest)
   where (cs', rest) = parseStringLit cs
 
 parseOther :: String -> (String, String)
-parseOther [] = ("", "")
-parseOther s@(c:cs)
-  | c `elem` ("{[()]}\"," :: String) = ("", s)
-  | otherwise = let (toParse, rest) = parseOther cs
-                 in (c : toParse, rest)
+parseOther = span . flip notElem $ ("{[()]}\"," :: String)
+
+-- |
+-- Handle escaped characters correctly
+--
+-- >>> parseExprs $ "Foo \"hello \\\"world!\""
+-- ([Other "Foo ",StringLit "hello \\\"world!"],"")