Commit 3d658072 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Add HiddenModules key to PackageData.hs.

parent 30687f35
...@@ -26,6 +26,7 @@ data PackageData = Version FilePath ...@@ -26,6 +26,7 @@ data PackageData = Version FilePath
| BuildGhciLib FilePath | BuildGhciLib FilePath
data PackageDataList = Modules FilePath data PackageDataList = Modules FilePath
| HiddenModules FilePath
| SrcDirs FilePath | SrcDirs FilePath
| IncludeDirs FilePath | IncludeDirs FilePath
| Deps FilePath | Deps FilePath
...@@ -66,6 +67,7 @@ pkgDataList :: PackageDataList -> Action [String] ...@@ -66,6 +67,7 @@ pkgDataList :: PackageDataList -> Action [String]
pkgDataList packageData = do pkgDataList packageData = do
let (key, path, defaultValue) = case packageData of let (key, path, defaultValue) = case packageData of
Modules path -> ("MODULES" , path, "" ) Modules path -> ("MODULES" , path, "" )
HiddenModules path -> ("HIDDEN_MODULES" , path, "" )
SrcDirs path -> ("HS_SRC_DIRS" , path, ".") SrcDirs path -> ("HS_SRC_DIRS" , path, ".")
IncludeDirs path -> ("INCLUDE_DIRS" , path, ".") IncludeDirs path -> ("INCLUDE_DIRS" , path, ".")
Deps path -> ("DEPS" , path, "" ) Deps path -> ("DEPS" , path, "" )
......
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