gistfile1.hs

{-# LANGUAGE TemplateHaskell #-}                    
module IP where                                     
                                                    
import Control.Applicative
import Language.Haskell.TH
import Network

ipPortFile :: FilePath -> Q Exp              
ipPortFile fp = do                           
  [ip, port] <- runIO $ lines <$> readFile fp
  let port' = read port :: Int               
  [| (ip, PortNumber $ fromIntegral port') |]