diff --git a/Control/Monad/Logger.hs b/Control/Monad/Logger.hs
--- a/Control/Monad/Logger.hs
+++ b/Control/Monad/Logger.hs
@@ -155,7 +155,13 @@
 logOther = logTH . LevelOther
 
 liftLoc :: Loc -> Q Exp
-liftLoc (Loc a b c d e) = [|Loc $(lift a) $(lift b) $(lift c) $(lift d) $(lift e)|]
+liftLoc (Loc a b c (d1, d2) (e1, e2)) = [|Loc
+    $(lift a)
+    $(lift b)
+    $(lift c)
+    ($(lift d1), $(lift d2))
+    ($(lift e1), $(lift e2))
+    |]
 
 -- | Generates a function that takes a 'LogSource' and 'Text' and logs a 'LevelDebug' message. Usage:
 --
diff --git a/monad-logger.cabal b/monad-logger.cabal
--- a/monad-logger.cabal
+++ b/monad-logger.cabal
@@ -1,5 +1,5 @@
 name:                monad-logger
-version:             0.2.3.1
+version:             0.2.3.2
 synopsis:            A class of monads which can log messages.
 description:         This package uses template-haskell for determining source code locations of messages.
 homepage:            https://github.com/kazu-yamamoto/logger