Thing.purs

-- This code is the kind of code that makes me grumpy.
-- It exists because Node.URL uses nullable   
--   (https://github.com/purescript-node/purescript-node-url/blob/master/src/Node/URL.purs#L17-L29)
-- But Node.HTTP.Client (a natural client of url parsing) uses Data.Options
--   (https://github.com/purescript-node/purescript-node-http/blob/master/src/Node/HTTP/Client.purs#L64-L96)

urlToOpts :: String -> Options RequestOptions
urlToOpts urlString = fold $
     (assoc <$> pure protocol <*> toMaybe purl.protocol) 
  <> (assoc <$> pure path <*> toMaybe purl.path) 
  <> (assoc <$> pure hostname <*> toMaybe purl.hostname)
  <> (assoc <$> pure port <*> ((toMaybe purl.port) >>= fromString))
  where purl = URL.parse urlString
  
-- Funny part is, if you look, even in the internal impl they seem
-- seem to avoid the problem of non-static URLs.
--   (https://github.com/purescript-node/purescript-node-http/blob/master/src/Node/HTTP/Client.purs#L119-L121)