From 7f7250702b1aab789ef24a88d4b5ef486bb94d32 Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Wed, 14 Jan 2015 01:30:22 +0100
Subject: [PATCH] Style tweak

---
 Stackage/ShakeBuild.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Stackage/ShakeBuild.hs b/Stackage/ShakeBuild.hs
index a3402d34..fa413bf5 100644
--- a/Stackage/ShakeBuild.hs
+++ b/Stackage/ShakeBuild.hs
@@ -84,10 +84,7 @@ databaseTarget shakeDir pb = do
             liftIO (createDirectoryIfMissing True dir)
             liftIO (removeDirectoryRecursive dir)
             () <- cmd "ghc-pkg" "init" dir
-            liftIO
-                (copyBuiltInHaddocks
-                     (FP.decodeString
-                          (pbDocDir pb)))
+            liftIO $ copyBuiltInHaddocks $ FP.decodeString $ pbDocDir pb
     makeFile (targetForDb' shakeDir)
     where dir = buildDatabase pb