diff --git a/here.cabal b/here.cabal
--- a/here.cabal
+++ b/here.cabal
@@ -1,5 +1,5 @@
 name: here
-version: 1.2.5
+version: 1.2.6
 synopsis: Here docs & interpolated strings via quasiquotation
 description: Here docs & interpolated strings via quasiquotation
 license: BSD3
diff --git a/src/Data/String/Here/Interpolated.hs b/src/Data/String/Here/Interpolated.hs
--- a/src/Data/String/Here/Interpolated.hs
+++ b/src/Data/String/Here/Interpolated.hs
@@ -18,6 +18,7 @@
 import Language.Haskell.TH.Quote
 
 import Text.Parsec
+import Text.Parsec.Prim
 import Text.Parsec.String
 
 import Data.String.Here.Internal
@@ -129,7 +130,7 @@
         Double Escaped -> setQuoteState (Double Unescaped) >> next
     stepBack = lift $
       updateParserState
-        (\s@State {..} -> s {statePos = incSourceColumn statePos (-1)})
+        (\s -> s {statePos = incSourceColumn (statePos s) (-1)})
         >> getInput
         >>= setInput . ('}':)
     incBraceCt n = modify $ \st@HsChompState {braceCt} ->