Revision 2cdaf225 htools/Ganeti/Ssconf.hs

b/htools/Ganeti/Ssconf.hs
128 128 
getPrimaryIPFamily :: Maybe FilePath -> IO (Result Socket.Family)
129 129 
getPrimaryIPFamily optpath = do
130 130 
  result <- readSSConfFile optpath (Just (show C.ip4Family)) SSPrimaryIpFamily
131 
  return (result >>= return . rstripSpace >>=
131 
  return (liftM rstripSpace result >>=
132 132 
          tryRead "Parsing af_family" >>= parseIPFamily)

Also available in: Unified diff