From 84aef8176a51abac70192374531a52fc97863082 Mon Sep 17 00:00:00 2001
From: Artyom Kazak <yom@artyom.me>
Date: Tue, 19 Mar 2019 06:32:07 +0100
Subject: [PATCH] Fix style

---
 src/Stack/Build/ConstructPlan.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stack/Build/ConstructPlan.hs b/src/Stack/Build/ConstructPlan.hs
index aa02164e73..e4bea35657 100644
--- a/src/Stack/Build/ConstructPlan.hs
+++ b/src/Stack/Build/ConstructPlan.hs
@@ -1041,7 +1041,7 @@ pprintExceptions exceptions stackYaml stackRoot parentMap wanted' prunedGlobalDe
     pprintExtra (name, (version, BlobKey cabalHash cabalSize)) =
       let cfInfo = CFIHash cabalHash (Just cabalSize)
           packageIdRev = PackageIdentifierRevision name version cfInfo
-       in "- " <+> (fromString $ T.unpack $ utf8BuilderToText $ RIO.display packageIdRev)
+       in "- " <+> fromString (T.unpack (utf8BuilderToText (RIO.display packageIdRev)))
 
     allNotInBuildPlan = Set.fromList $ concatMap toNotInBuildPlan exceptions'
     toNotInBuildPlan (DependencyPlanFailures _ pDeps) =