From 88b1eb65bf7a71b3d74d00ed711ae7891884c5d6 Mon Sep 17 00:00:00 2001
From: Igor Pashev <pashev.igor@gmail.com>
Date: Sat, 25 Nov 2017 15:30:13 +0300
Subject: xinclude2nix: style

---
 modules/pkgs/xinclude2nix/xinclude2nix.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'modules/pkgs/xinclude2nix/xinclude2nix.hs')

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
-- 
cgit v1.2.3