HXT выдаёт ошибку если указать полный путь к файлу

module HXT_XML_Test(ProgCfg(..),loadProgCfg,cfgFilePath) where
 
import Text.XML.HXT.Core
import Control.Applicative
import System.Directory
 
data ProgCfg = ProgCfg { httpPort :: Int, srcHost ::String, srcPort ::Int}
     deriving (Eq, Ord, Read, Show)
 
defaultProgCfg :: ProgCfg
defaultProgCfg = ProgCfg { httpPort=80,  srcHost="127.0.0.1", srcPort=5021}
 
cfgFileName :: String
cfgFileName = "config.xml"
 
cfgFilePath :: IO String 
cfgFilePath = flip (++) ('\\' : cfgFileName) <$> getCurrentDirectory 
 
instance XmlPickler ProgCfg where
    xpickle = xpProgCfg
 
xpProgCfg        :: PU ProgCfg
xpProgCfg
    = xpElem "ProgCfg" $
      xpWrap ( \ ((a0,a1,a2)) -> ProgCfg a0 a1 a2
             , \ t -> (httpPort t, srcHost t
                      , srcPort t
                      )
             ) $
      xpTriple (xpAttr           "HTTP_port"    xpInt  )
               (xpAttr           "Host"   xpText )
               (xpAttr           "Port"   xpInt  )
 
 
loadProgCfg :: IO ProgCfg
loadProgCfg = do
    fname <- cfgFilePath
    b <- doesFileExist fname
    if b then  do
        [p2] <- runX ( xunpickleDocument xpProgCfg
                               [ withValidate no
                               , withRemoveWS yes
                               ] 
                               cfgFileName -- если заменить на fname, то fatal error: unsupported protocol in URI
                     ) 
        return p2
    else do
        let cfg = defaultProgCfg
        saveProgCfg cfg
        return cfg
    
saveProgCfg :: ProgCfg -> IO ()
saveProgCfg cfg = do 
    fname <- cfgFilePath
    runX (  constA cfg
            >>>
            xpickleDocument xpProgCfg
               [ withIndent yes        
               ] fname
         )
    return ()