1
1
mirror of https://github.com/nmattia/snack.git synced 2024-11-28 12:27:41 +03:00

Simplify main further

This commit is contained in:
Nicolas Mattia 2018-06-23 14:55:10 +02:00
parent 17e1b60354
commit 161dd48fe3

View File

@ -193,8 +193,6 @@ let
done
${newGhc}/bin/ghci
'';
traceType = x: builtins.trace (builtins.typeOf x) x;
# Takes a package spec and returns (modSpecs -> Fold)
modSpecFoldFromPackageSpec = pkgSpec:
@ -214,14 +212,11 @@ let
pkgSpec
(abort "asking ghc options for external module: ${modName}")
modName).packageGhcOpts;
base = pkgSpec.packageBase;
extraFiles = pkgSpec.packageExtraFiles;
extraDirs = pkgSpec.packageExtraDirectories;
in
moduleSpecFold
{ baseByModuleName = baseByModuleName;
filesByModuleName = extraFiles;
dirsByModuleName = extraDirs;
filesByModuleName = pkgSpec.packageExtraFiles;
dirsByModuleName = pkgSpec.packageExtraDirectories;
depsByModuleName = depsByModuleName;
ghcOptsByModuleName = ghcOptsByModuleName;
};