getTrackerType :: String -> TrackerProtocol
getTrackerType url | "http://" `isPrefixOf` url = Http
| "udp://" `isPrefixOf` url = Udp
getTrackerType :: String -> TrackerProtocol
getTrackerType url | "http://" `isPrefixOf` url = Http
| "udp://" `isPrefixOf` url = Udp