stopP removal.

src/Process/PieceMgr.hs

@@ -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

src/Process/Tracker.hs

@@ -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   -> []