Fix spelling error

This commit is contained in:
Tim Dysinger 2013-04-13 07:46:34 -10:00
parent d98e053bc5
commit e2d77f54b9

View File

@ -44,7 +44,7 @@ cookInfo ghcOptions cradle cabal = (gopts,idirs,depPkgs)
Just cfile = cradleCabalFile cradle Just cfile = cradleCabalFile cradle
binfo = cabalBuildInfo cabal binfo = cabalBuildInfo cabal
gopts = getGHCOptions ghcOptions binfo gopts = getGHCOptions ghcOptions binfo
idirs = includeDirectroies cdir owdir $ cabalAllSourceDirs cabal idirs = includeDirectories cdir owdir $ cabalAllSourceDirs cabal
depPkgs = removeMe cfile $ cabalAllDependPackages cabal depPkgs = removeMe cfile $ cabalAllDependPackages cabal
removeMe :: FilePath -> [String] -> [String] removeMe :: FilePath -> [String] -> [String]
@ -116,9 +116,9 @@ fromPackageDescription f1 f2 f3 f4 pd = lib ++ exe ++ tests ++ bench
---------------------------------------------------------------- ----------------------------------------------------------------
includeDirectroies :: String -> String -> [FilePath] -> [String] includeDirectories :: String -> String -> [FilePath] -> [String]
includeDirectroies cdir owdir [] = uniqueAndSort [cdir,owdir] includeDirectories cdir owdir [] = uniqueAndSort [cdir,owdir]
includeDirectroies cdir owdir dirs = uniqueAndSort (map (cdir </>) dirs ++ [owdir]) includeDirectories cdir owdir dirs = uniqueAndSort (map (cdir </>) dirs ++ [owdir])
---------------------------------------------------------------- ----------------------------------------------------------------