Style tweak

This commit is contained in:
Chris Done 2015-01-14 01:30:22 +01:00
parent 794881627e
commit 7f7250702b

View File

@ -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