diff --git a/src/Trace/Hpc/Markup.hs b/src/Trace/Hpc/Markup.hs
index 39999a6e964ea646d5e4d2fdab44d8f56d2abce8..29d4a3f7286b3eebe2b739388d9f952cd2dc737c 100644
--- a/src/Trace/Hpc/Markup.hs
+++ b/src/Trace/Hpc/Markup.hs
@@ -6,7 +6,7 @@
 module Trace.Hpc.Markup (markupPlugin) where
 
 import qualified Lucid as L
-import qualified Data.Text.Lazy as T
+import qualified Data.Text.Lazy as TL
 import Control.Monad
 import Data.Array
 import Data.List (find, sortBy)
@@ -67,22 +67,22 @@ markupMain flags (prog : modNames) = do
   -- Write "hpc_index.html"
   let (fp_name_index, html_name_index) = name_summary mods
   unless (verbosity flags < Normal) (putStrLn ("Writing: " <> fp_name_index))
-  writeFileUtf8 (dest_dir </> fp_name_index) (T.unpack . L.renderText $ html_name_index)
+  writeFileUtf8 (dest_dir </> fp_name_index) (TL.unpack . L.renderText $ html_name_index)
 
   -- Write "hpc_index_fun.html"
   let (fp_fun_index, html_fun_index) = fun_summary mods
   unless (verbosity flags < Normal) (putStrLn ("Writing: " <> fp_fun_index))
-  writeFileUtf8 (dest_dir </> fp_fun_index) (T.unpack . L.renderText $ html_fun_index)
+  writeFileUtf8 (dest_dir </> fp_fun_index) (TL.unpack . L.renderText $ html_fun_index)
 
   -- Write "hpc_index_alt.html"
   let (fp_alt_index, html_alt_index) = alt_summary mods
   unless (verbosity flags < Normal) (putStrLn ("Writing: " <> fp_alt_index))
-  writeFileUtf8 (dest_dir </> fp_alt_index) (T.unpack . L.renderText $ html_alt_index)
+  writeFileUtf8 (dest_dir </> fp_alt_index) (TL.unpack . L.renderText $ html_alt_index)
 
   -- Write "hpc_index_exp.html"
   let (fp_exp_index, html_exp_index) = exp_summary mods
   unless (verbosity flags < Normal) (putStrLn ("Writing: " <> fp_exp_index))
-  writeFileUtf8 (dest_dir </> fp_exp_index) (T.unpack . L.renderText $ html_exp_index)
+  writeFileUtf8 (dest_dir </> fp_exp_index) (TL.unpack . L.renderText $ html_exp_index)
 markupMain _ [] =
   hpcError markupPlugin "no .tix file or executable name specified"