import Development.Hake
import Development.Hake.FunSet

main :: IO ()
main = do
  address <- fmap ( filter (/='\n') ) $ readFile "address"
  user    <- fmap ( filter (/='\n') ) $ readFile "user"
  hake $ [
     task "manifest" [
       "rm -f ~/local/portage/app-editors/yavie/Manifest" ,
       "rm -f /usr/portage/distfiles/yavie-0.0.2.tar.gz" ,
       "cabal sdist" ,
       "yjftp put dist/yavie-0.0.2.tar.gz " ++
         address ++ "/homepage/second/portage/distfiles/ " ++ user ,
       "ebuild ~/local/portage/app-editors/yavie/yavie-0.0.2.ebuild manifest"
      ]
   ]