-
Notifications
You must be signed in to change notification settings - Fork 24
/
RelativeRef.purs
33 lines (28 loc) · 942 Bytes
/
RelativeRef.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
module Data.URI.RelativeRef where
import Prelude
import Data.Array (catMaybes)
import Data.Either (Either)
import Data.Maybe (Maybe(..))
import Data.String as S
import Data.URI (RelativeRef(..))
import Data.URI.Fragment as Fragment
import Data.URI.Query as Query
import Data.URI.RelativePart as RPart
import Text.Parsing.StringParser (Parser, ParseError, runParser, try)
import Text.Parsing.StringParser.Combinators (optionMaybe)
import Text.Parsing.StringParser.String (string, eof)
parse ∷ String → Either ParseError RelativeRef
parse = runParser parser
parser ∷ Parser RelativeRef
parser = RelativeRef
<$> RPart.parser
<*> optionMaybe (string "?" *> Query.parser)
<*> optionMaybe (string "#" *> try Fragment.parser)
<* eof
print ∷ RelativeRef → String
print (RelativeRef h q f) =
S.joinWith "" $ catMaybes
[ Just (RPart.print h)
, Query.print <$> q
, (\frag → "#" <> Fragment.print frag) <$> f
]