diff options
| -rw-r--r-- | modules/pkgs/xinclude2nix/xinclude2nix.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/modules/pkgs/xinclude2nix/xinclude2nix.hs b/modules/pkgs/xinclude2nix/xinclude2nix.hs index aaf505e..369f103 100644 --- a/modules/pkgs/xinclude2nix/xinclude2nix.hs +++ b/modules/pkgs/xinclude2nix/xinclude2nix.hs @@ -10,14 +10,14 @@ module Main ( main ) where -import Data.List (intercalate, isPrefixOf, stripPrefix) +import Data.List (isPrefixOf, stripPrefix) import Data.Maybe (fromMaybe) import System.Environment (getArgs) import Text.XML.HXT.Core ((>>>), deep, getAttrValue, hasAttr, hasName, isElem, readDocument, returnA, runX) -getXIncludes :: String -> IO [String] +getXIncludes :: FilePath -> IO [String] getXIncludes xmlFileName = runX $ readDocument [] xmlFileName >>> @@ -40,7 +40,7 @@ unique (x:xs) | otherwise = x : unique xs toNix :: [String] -> String -toNix ss = "[" ++ intercalate " " (map show ss) ++ "]" +toNix ss = "[" ++ unwords (map show ss) ++ "]" main :: IO () main = do |