@@ -141,13 +141,17 @@ checkUrl filePath url
141141 | hasProtocol url = skip "Unknown protocol, skipping"
142142 | otherwise = checkInternalUrl filePath url
143143 where
144− hasProtocol = all (`elem` validProtoChars) . takeWhile (/= ':')
145144 validProtoChars = ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "+-."
145+ hasProtocol str = case break (== ':') str of
146+ (proto, ':' : _) -> all (`elem` validProtoChars) proto
147+ _ -> False
148+
146149
147150--------------------------------------------------------------------------------
148151ok :: String -> Checker ()
149152ok _ = tell $ mempty {checkerOk = 1}
150153
154+
151155--------------------------------------------------------------------------------
152156skip :: String -> Checker ()
153157skip reason = do