diff options
Diffstat (limited to 'custom/tinc/generate_hostfile.hs')
| -rwxr-xr-x | custom/tinc/generate_hostfile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/custom/tinc/generate_hostfile.hs b/custom/tinc/generate_hostfile.hs index a8420780..90fa11b7 100755 --- a/custom/tinc/generate_hostfile.hs +++ b/custom/tinc/generate_hostfile.hs | |||
| @@ -12,7 +12,7 @@ genHostFile (_ :/ (Dir _ contents)) = "{\n" ++ entries ++ "\n}\n" | |||
| 12 | entries = concat [ genEntry name content | (File name content) <- contents, name `notElem` hidden ] | 12 | entries = concat [ genEntry name content | (File name content) <- contents, name `notElem` hidden ] |
| 13 | genEntry fileName fileContent = unlines . indent $ [ "\"" ++ fileName ++ "\" = ''" ] ++ indent (lines fileContent) ++ [ "'';" ] | 13 | genEntry fileName fileContent = unlines . indent $ [ "\"" ++ fileName ++ "\" = ''" ] ++ indent (lines fileContent) ++ [ "'';" ] |
| 14 | hidden = [ "to_nix.sh" | 14 | hidden = [ "to_nix.sh" |
| 15 | , "signup.sh" | 15 | , "hosts.nix" |
| 16 | ] | 16 | ] |
| 17 | 17 | ||
| 18 | indent :: [String] -> [String] | 18 | indent :: [String] -> [String] |
