From e972d1d8197206c71dd294755a68ca5d62dacfcf Mon Sep 17 00:00:00 2001
From: Malte Brandy <malte.brandy@maralorn.de>
Date: Fri, 25 Oct 2019 02:09:42 +0200
Subject: [PATCH] Fix Haskell scripts

---
 lib/test.nix          | 2 +-
 lib/update-system.nix | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/test.nix b/lib/test.nix
index 5167d266..38231156 100644
--- a/lib/test.nix
+++ b/lib/test.nix
@@ -7,7 +7,7 @@ in rec {
     getNivPath dir name = get_niv_path ([i|#{dir :: String}/nix/sources.nix|] :: String) name |> captureTrim
 
     getNivAssign dir name = process <$> getNivPath dir name
-        where process str = ["-I", [i|#{name :: String}=#{str :: LBS.ByteString}|]]
+        where process str = ["-I" :: String, [i|#{name :: String}=#{str :: LBS.ByteString}|]]
 
     main = do
       (configDir:hostname:args) <- getArgs
diff --git a/lib/update-system.nix b/lib/update-system.nix
index 7038f439..c3a340ba 100644
--- a/lib/update-system.nix
+++ b/lib/update-system.nix
@@ -11,7 +11,7 @@ in rec {
     getNivPath name = get_niv_path "${configPath}/nix/sources.nix" name |> captureTrim
 
     getNivAssign name = tag <$> getNivPath name
-        where tag str = ["-I", [i|#{name :: String}=#{str :: LBS.ByteString}|]]
+        where tag str = ["-I" :: String, [i|#{name :: String}=#{str :: LBS.ByteString}|]]
 
     main = do
         paths <- fmap concat . mapM getNivAssign $ ["nixpkgs", "unstable", "home-manager"]