From 0f890ae8db577d00daf344d42220becf65a43097 Mon Sep 17 00:00:00 2001
From: Georgy Lukyanov <mail@geo2a.info>
Date: Sun, 9 Jun 2024 17:25:44 +0200
Subject: [PATCH] Rename import
---
src/Trace/Hpc/Markup.hs | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/src/Trace/Hpc/Markup.hs b/src/Trace/Hpc/Markup.hs
index 39999a6..29d4a3f 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"
--
GitLab