Permalink
Browse files

stopP removal.

  • Loading branch information...
1 parent eae4606 commit 4b027fc8072623dc0653d813693e8b8299ecaafb @jlouis committed Feb 19, 2010
Showing with 3 additions and 6 deletions.
  1. +1 −2 src/Process/PieceMgr.hs
  2. +2 −4 src/Process/Tracker.hs
View
@@ -154,8 +154,7 @@ start logC mgrC fspC chokeC statC db supC =
pieceOk <- checkPiece pn
case pieceOk of
Nothing ->
- do logFatal "PieceMgrP: Piece Nonexisting!"
- stopP
+ do fail "PieceMgrP: Piece Nonexisting!"
Just True -> do completePiece pn
markDone pn
checkFullCompletion
View
@@ -138,8 +138,7 @@ pokeTracker = do
url <- buildRequestURL upDownLeft
logDebug $ "Request URL: " ++ url
uri <- case parseURI url of
- Nothing -> do logFatal $ "Could not parse the url " ++ url
- stopP
+ Nothing -> fail $ "Could not parse the url " ++ url
Just u -> return u
resp <- trackerRequest uri
case resp of
@@ -248,8 +247,7 @@ buildRequestURL ss = do ti <- gets torrentInfo
prt = do lp <- gets localPort
case lp of
PortNumber pnum -> return $ fromIntegral pnum
- _ -> do logFatal "Unknown port type"
- stopP
+ _ -> do fail "Unknown port type"
trackerfyEvent ev =
case ev of
Running -> []

0 comments on commit 4b027fc

Please sign in to comment.