Semantique 0.2.1 → 0.2.2

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

Semantique.cabal +1/−1
src/Main.hs +4/−1

Semantique.cabal view

@@ -2,7 +2,7 @@ -- documentation, see http://haskell.org/cabal/users-guide/  name:                Semantique-version:             0.2.1+version:             0.2.2 synopsis:            Command-line tool for maintaining the Semantique database. description:         Command-line tool for maintaining the Semantique database. See <http://semantik.tv/> license:             PublicDomain

src/Main.hs view

@@ -146,7 +146,10 @@   shows <- getTVShows   unless (name `elem` shows) $ error $ "Unknown TV series: " ++ name   epguides_url <- getEpguidesURL name-  inp <- liftIO $ readProcess "wget" ["-q", "-O", "-", epguides_url] []+  (inh, outh, errh, pid) <- liftIO $ runInteractiveProcess "wget" ["-q", "-O", "-", epguides_url] Nothing Nothing+  liftIO $ hClose inh >> hClose errh+  inp <- liftIO $ hGetContents outh+  _ <- liftIO $ waitForProcess pid   forM_ (parseEpguide inp) $ \(EpIdx season episode, (year, month, day), title) -> do     let query = ["name" =: name, "episode" =: ["season" =: season, "episode" =: episode ]]         airdate = ["year" =: year, "month" =: month, "day" =: day]