Merge remote-tracking branch 'lass/master' into HEAD

3 files changed, 37 insertions, 15 deletions

diff --git a/krebs/5pkgs/haskell/default.nix b/krebs/5pkgs/haskell/default.nix
index 7cdf65ea5..e824699f9 100644
--- a/krebs/5pkgs/haskell/default.nix
+++ b/krebs/5pkgs/haskell/default.nix
@@ -1,13 +1,6 @@
 with import <stockholm/lib>;
 let
-  overrides = self: super:
-    listToAttrs
-      (map
-        (name: nameValuePair (removeSuffix ".nix" name)
-                             (self.callPackage (./. + "/${name}") {}))
-        (filter
-          (name: name != "default.nix" && !hasPrefix "." name)
-          (attrNames (readDir ./.))));
+  overrides = self: super: mapNixDir (path: self.callPackage path {}) ./.;
 in
 self: super:
 {
diff --git a/krebs/5pkgs/simple/cabal-read.nix b/krebs/5pkgs/simple/cabal-read.nix
new file mode 100644
index 000000000..f8fc71e05
--- /dev/null
+++ b/krebs/5pkgs/simple/cabal-read.nix
@@ -0,0 +1,35 @@
+{ writeHaskellPackage }:
+
+# Because `sed -n 's/.*\<ghc-options:\s\+\(.*\)/\1/p'` is too simple.
+writeHaskellPackage "cabal-read" {
+  executables.ghc-options = {
+    extra-depends = ["Cabal"];
+    text = /* haskell */ ''
+      module Main (main) where
+      import Data.List
+      import Data.Maybe
+      import Distribution.Compiler
+      import Distribution.PackageDescription.Parsec
+      import Distribution.Types.BuildInfo
+      import Distribution.Types.CondTree
+      import Distribution.Types.Executable
+      import Distribution.Types.GenericPackageDescription
+      import Distribution.Types.UnqualComponentName
+      import Distribution.Verbosity
+      import System.Environment
+      main :: IO ()
+      main = do
+          [path, name] <- getArgs
+
+          desc <- readGenericPackageDescription normal path
+
+          case lookup (mkUnqualComponentName name) (condExecutables desc) of
+            Just exe ->
+              putStrLn . intercalate " " . fromMaybe [] . lookup GHC
+                       . options . buildInfo . condTreeData $ exe
+
+            Nothing ->
+              error ("executable " <> name <> " not found in " <> path)
+    '';
+  };
+}
diff --git a/krebs/5pkgs/simple/default.nix b/krebs/5pkgs/simple/default.nix
index 1b9d8c235..6ba4fec83 100644
--- a/krebs/5pkgs/simple/default.nix
+++ b/krebs/5pkgs/simple/default.nix
@@ -15,10 +15,4 @@ let
     else override;
 in
 
-  listToAttrs
-    (map
-      (name: nameValuePair (removeSuffix ".nix" name)
-                           (callPackage (./. + "/${name}") {}))
-      (filter
-        (name: name != "default.nix" && !hasPrefix "." name)
-        (attrNames (readDir ./.))))
+  mapNixDir (path: callPackage path {}) ./.