module Iptf
       (
         updateHostsFile
       , ipFromWeb
       ) where

import           Iptf.Hosts (updateHostsFile)
import           Iptf.Ip    (IP, ipFromWeb)




-- run :: IO ()
-- run = do
--   opts <- getOptions
--   tryWebIP <- ipFromWeb (url opts)
--   case tryWebIP of
--    Right webIP -> do
--      hosts <- getHosts (path opts)
--      if pure webIP == ipForHostname (hostname opts) hosts
--      then return ()
--      else writeFile (path opts) $ toText (update hosts (hostname opts) webIP)
--    Left e -> putStrLn e

module Iptf
       (
         updateHostsFile
       , ipFromWeb
       ) where

import           Iptf.Hosts (updateHostsFile)
import           Iptf.Ip    (IP, ipFromWeb)

Remove commented out run function
Remove commented out run function
