MK
Size: a a a
MK
JS
DB
uri :: QuasiQuoter
uri = QuasiQuoter
{ quoteExp = \str ->
case mkURI (T.pack str) of
Nothing -> fail "The input does not contain a valid URI"
Just x -> dataToExpQ (fmap liftText . cast) x
, quotePat = error "Usage as a parttern is not supported"
, quoteType = error "Usage as a type is not supported"
, quoteDec = error "Usage as a declaration is not supported" }
DB
dataToExpQ
. для типов такой функции найти не получаетсяJS
dataToExpQ
. для типов такой функции найти не получаетсяJS
DB
DB
DB
DB
map words . lines
, посчитал и типизировалDB
JS
JS
map words . lines
, посчитал и типизировалDB
DB
DB
JS
DB
DB
MK