Fix Haskell scripts
This commit is contained in:
parent
f11fd8b780
commit
e972d1d819
2 changed files with 2 additions and 2 deletions
|
@ -7,7 +7,7 @@ in rec {
|
||||||
getNivPath dir name = get_niv_path ([i|#{dir :: String}/nix/sources.nix|] :: String) name |> captureTrim
|
getNivPath dir name = get_niv_path ([i|#{dir :: String}/nix/sources.nix|] :: String) name |> captureTrim
|
||||||
|
|
||||||
getNivAssign dir name = process <$> getNivPath dir name
|
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
|
main = do
|
||||||
(configDir:hostname:args) <- getArgs
|
(configDir:hostname:args) <- getArgs
|
||||||
|
|
|
@ -11,7 +11,7 @@ in rec {
|
||||||
getNivPath name = get_niv_path "${configPath}/nix/sources.nix" name |> captureTrim
|
getNivPath name = get_niv_path "${configPath}/nix/sources.nix" name |> captureTrim
|
||||||
|
|
||||||
getNivAssign name = tag <$> getNivPath name
|
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
|
main = do
|
||||||
paths <- fmap concat . mapM getNivAssign $ ["nixpkgs", "unstable", "home-manager"]
|
paths <- fmap concat . mapM getNivAssign $ ["nixpkgs", "unstable", "home-manager"]
|
||||||
|
|
Loading…
Reference in a new issue