Browse files

Small code simplification

  • Loading branch information...
1 parent bfd37d6 commit 997ef04716cb5898c9710bf0eaedaae31793cf5e @igfoo igfoo committed Nov 8, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 Cabal/Distribution/Simple/Haddock.hs
View
4 Cabal/Distribution/Simple/Haddock.hs
@@ -426,8 +426,8 @@ renderArgs verbosity keepTempFiles version args k = do
do
hPutStrLn h $ fromFlag $ argPrologue args
hClose h
- let pflag = (:[]).("--prologue="++) $ prologFileName
- k $ (pflag ++ renderPureArgs version args, result)
+ let pflag = "--prologue=" ++ prologFileName
+ k (pflag : renderPureArgs version args, result)
where
isVersion2 = version >= Version [2,0] []
outputDir = (unDir $ argOutputDir args)

0 comments on commit 997ef04

Please sign in to comment.