Commit 988daa65 authored by Edward Z. Yang's avatar Edward Z. Yang Committed by Edward Z. Yang
Browse files

Use a real normalise in Haddock.


Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent dadb7bdb
......@@ -61,8 +61,7 @@ import Distribution.Compat.Semigroup (All (..), Any (..))
import Data.Either ( rights )
import System.Directory (doesFileExist)
import System.FilePath ( (</>), (<.>), normalise, splitPath, joinPath
, isAbsolute )
import System.FilePath ( (</>), (<.>), normalise, isAbsolute )
import System.IO (hClose, hPutStr, hPutStrLn, hSetEncoding, utf8)
-- ------------------------------------------------------------------------------
......@@ -108,7 +107,7 @@ data HaddockArgs = HaddockArgs {
newtype Directory = Dir { unDir' :: FilePath } deriving (Read,Show,Eq,Ord)
unDir :: Directory -> FilePath
unDir = joinPath . filter (\p -> p /="./" && p /= ".") . splitPath . unDir'
unDir = normalise . unDir'
type Template = String
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment