diff --git a/Debug/Trace/LocationTH.hs b/Debug/Trace/LocationTH.hs
--- a/Debug/Trace/LocationTH.hs
+++ b/Debug/Trace/LocationTH.hs
@@ -10,7 +10,7 @@
 -- This module provides a Template Haskell based mechanism to tag failures
 -- with the location of the failure call. The location message includes the
 -- file name, line and column numbers.
--- 
+--
 
 {-# LANGUAGE TemplateHaskell #-}
 module Debug.Trace.LocationTH
@@ -29,6 +29,7 @@
 import Language.Haskell.TH.Ppr (pprint)
 import Language.Haskell.TH.Syntax (location, Loc(..), Q, Exp, lift)
 import System.IO.Unsafe  (unsafePerformIO)
+import qualified Text.PrettyPrint.HughesPJ as PP
 import Text.PrettyPrint.HughesPJ
 
 ppUnless :: Bool -> Doc -> Doc
@@ -41,16 +42,16 @@
             , loc_start = (sline, start_col)
             , loc_end = (eline, end_col) })
     | sline == eline = hcat
-        [ text src_path <> colon
+        [ text src_path PP.<> colon
         , int sline, char ':', int start_col
         , ppUnless (end_col - start_col <= 1)
-                   (char '-' <> int (end_col-1))
+                   (char '-' PP.<> int (end_col-1))
         ]
     | otherwise = hcat
-        [ text src_path <> colon
-        , parens (int sline <> char ',' <>  int start_col)
+        [ text src_path PP.<> colon
+        , parens (int sline PP.<> char ',' PP.<>  int start_col)
         , char '-'
-        , parens (int eline <> char ',' <>
+        , parens (int eline PP.<> char ',' PP.<>
             if end_col == 0 then int end_col else int (end_col-1))
         ]
 
@@ -59,7 +60,7 @@
 --
 -- @$__LOCATION__ :: 'String'@
 --
--- >>> $__LOCATION__ 
+-- >>> $__LOCATION__
 -- "<interactive>:1:1-13"
 --
 __LOCATION__ :: Q Exp
@@ -68,7 +69,7 @@
 --
 -- | If the first argument evaluates to 'True', then the result is the second
 -- argument. Otherwise an 'AssertionFailed' exception is raised, containing a
--- 'String' with the source file and line number of the call to 'assert'. 
+-- 'String' with the source file and line number of the call to 'assert'.
 --
 -- @$(assert [| 'False' |]) :: a -> a@
 --
@@ -117,7 +118,7 @@
 -- message.
 --
 -- @$check :: c -> c@
--- 
+--
 -- >>> $check $ head []
 -- *** Exception: <interactive>:1:1-6: Prelude.head: empty list
 --
diff --git a/loch-th.cabal b/loch-th.cabal
--- a/loch-th.cabal
+++ b/loch-th.cabal
@@ -1,10 +1,10 @@
 Name:                loch-th
-Version:             0.2.1
+Version:             0.2.2
 Synopsis:            Support for precise error locations in source files (Template Haskell version)
 Description:         This module provides a Template Haskell based mechanism to
-		     tag failures with the location of the failure call. The
-		     location message includes the file name, line and column
-		     numbers.
+                     tag failures with the location of the failure call. The
+                     location message includes the file name, line and column
+                     numbers.
 Homepage:            https://github.com/liskin/loch-th
 License:             BSD3
 License-file:        LICENSE