blob: a84207802e5fdd2546a900f463fcc1ae9c44d378 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env runhaskell
import System.Directory.Tree
import Data.List
main :: IO ()
main = readDirectory "." >>= putStrLn . genHostFile
genHostFile :: AnchoredDirTree String -> String
genHostFile (_ :/ (Dir _ contents)) = "{\n" ++ entries ++ "\n}\n"
where
entries = concat [ genEntry name content | (File name content) <- contents, name `notElem` hidden ]
genEntry fileName fileContent = unlines . indent $ [ "\"" ++ fileName ++ "\" = ''" ] ++ indent (lines fileContent) ++ [ "'';" ]
hidden = [ "to_nix.sh"
, "signup.sh"
]
indent :: [String] -> [String]
indent = map (" " ++)
|
