-
Notifications
You must be signed in to change notification settings - Fork 24
/
AbsoluteURI.purs
33 lines (28 loc) · 951 Bytes
/
AbsoluteURI.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.AbsoluteURI where
import Prelude
import Data.Array (catMaybes)
import Data.Either (Either)
import Data.Maybe (Maybe(..))
import Data.String as S
import Data.URI (AbsoluteURI(..))
import Data.URI.HierarchicalPart as HPart
import Data.URI.Query as Query
import Data.URI.Scheme as Scheme
import Text.Parsing.StringParser (ParseError, Parser, runParser)
import Text.Parsing.StringParser.Combinators (optionMaybe)
import Text.Parsing.StringParser.String (string, eof)
parse ∷ String → Either ParseError AbsoluteURI
parse = runParser parser
parser ∷ Parser AbsoluteURI
parser = AbsoluteURI
<$> (optionMaybe Scheme.parser <* string ":")
<*> (string "//" *> HPart.parser)
<*> optionMaybe (string "?" *> Query.parser)
<* eof
print ∷ AbsoluteURI → String
print (AbsoluteURI s h q) =
S.joinWith "" $ catMaybes
[ (\scheme → Scheme.print scheme <> "//") <$> s
, Just (HPart.print h)
, Query.print <$> q
]