| By | ~fr33domlover |
| At | 2018-05-01 |
| Title | Resolve URI references, i.e. could be relative but could also have a scheme |
| Description |
Edit file src/Network/IRI.hs 0 → 0
+ 28 , resolveURIReference
… … … … - 52 import qualified Data.ByteString as B (empty, pack)
+ 53 import qualified Data.ByteString as B (empty, null, pack)
… … … … + 132 resolveURIReference :: URI Gen -> URI Ref -> URI Gen
+ 133 resolveURIReference base (URI s@(Scheme b) h q f) =
+ 134 if B.null b
+ 135 then resolveRelativeReference base $ URI s h q f
+ 136 else URI s (removeDotSegments h) q f
+ 137 … … … …