diff --git a/QuasiText.cabal b/QuasiText.cabal
--- a/QuasiText.cabal
+++ b/QuasiText.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                QuasiText
-version:             0.1.2.3
+version:             0.1.2.4
 synopsis:            A QuasiQuoter for Text.
 description:         A QuasiQuoter for interpolating values into Text strings.
 homepage:            https://github.com/mikeplus64/QuasiText
diff --git a/src/Text/QuasiText.hs b/src/Text/QuasiText.hs
--- a/src/Text/QuasiText.hs
+++ b/src/Text/QuasiText.hs
@@ -52,7 +52,11 @@
         let chunks = flip map (getChunks (T.pack s)) $ \c ->
                     case c of
                         T t -> [| t |]
-                        E t -> let Right e = parseExp (T.unpack t) in appE [| toText |] (return e) 
+
+                        E t -> case parseExp (T.unpack t) of
+                            Left  e -> error e
+                            Right e -> appE [| toText |] (return e)
+
                         V t -> appE [| toText |] (global (mkName (T.unpack t)))
 
         in appE [| T.concat |] (listE chunks)