diff options
| author | alexbiehl <alex.biehl@gmail.com> | 2017-10-31 20:59:07 +0100 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2017-10-31 20:59:07 +0100 |
| commit | 75c784e474bd1fc824e2f0214f37908d0d4410c3 (patch) | |
| tree | f963c2582362dc7ad771e6aa9bb2d786adb01c7f | |
| parent | b381221012ea49bb1de22f32409051b8bc52ac30 (diff) | |
Copy quickjump.css for nicer error messages
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs index 04a066a7..d43de2ad 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml.hs @@ -110,9 +110,9 @@ copyHtmlBits odir libdir themes withQuickjump = do copyLibFile f = copyFile (joinPath [libhtmldir, f]) (joinPath [odir, f]) mapM_ copyCssFile (cssFiles themes) copyLibFile haddockJsFile - when withQuickjump $ do - copyCssFile (joinPath [libhtmldir, quickJumpCssFile]) - copyLibFile jsQuickJumpFile + copyCssFile (joinPath [libhtmldir, quickJumpCssFile]) + when withQuickjump + (copyLibFile jsQuickJumpFile) return () |