Yeah

lib/GHCup/Types/JSON.hs

@@ -14,10 +14,13 @@ import           GHCup.Types
 import           Data.Versions
 import           Data.Aeson
 import           Data.Aeson.TH
-import           Network.URL
 import qualified Data.Text                     as T
+import           Data.Text.Encoding             ( decodeUtf8
+                                                , encodeUtf8
+                                                )
 import           Data.Aeson.Types
 import           Data.Text.Encoding            as E
+import           URI.ByteString
 
 
 
@@ -32,13 +35,14 @@ deriveJSON defaultOptions ''VSep
 deriveJSON defaultOptions ''VUnit
 
 
-instance ToJSON URL where
-  toJSON = toJSON . exportURL
+instance ToJSON URI where
+  toJSON = toJSON . decodeUtf8 . serializeURIRef'
 
-instance FromJSON URL where
-  parseJSON = withText "URL" $ \t -> case importURL (T.unpack t) of
-    Just x  -> pure x
-    Nothing -> fail "Could not parse URL, failure in importURL"
+instance FromJSON URI where
+  parseJSON = withText "URL" $ \t ->
+    case parseURI strictURIParserOptions (encodeUtf8 t) of
+      Right x -> pure x
+      Left  e -> fail . show $ e
 
 instance ToJSON Versioning where
   toJSON = toJSON . prettyV
@@ -62,8 +66,8 @@ instance ToJSONKey (Maybe Versioning) where
     Nothing -> T.pack "unknown_version"
 
 instance FromJSONKey (Maybe Versioning) where
-  fromJSONKey = FromJSONKeyTextParser
-    $ \t -> if t == T.pack "unknown_version" then pure Nothing else pure $ just t
+  fromJSONKey = FromJSONKeyTextParser $ \t ->
+    if t == T.pack "unknown_version" then pure Nothing else pure $ just t
    where
     just t = case versioning t of
       Right x -> pure x

lib/GHCup/Types/Optics.hs

@@ -2,8 +2,10 @@
 
 module GHCup.Types.Optics where
 
-import GHCup.Types
-import Optics
+import           Data.ByteString                ( ByteString )
+import           GHCup.Types
+import           Optics
+import           URI.ByteString
 
 makePrisms ''Tool
 makePrisms ''Architecture
@@ -14,3 +16,26 @@ makeLenses ''PlatformResult
 makeLenses ''ToolRequest
 
 
+uriSchemeL' :: Lens' (URIRef Absolute) Scheme
+uriSchemeL' = lensVL uriSchemeL
+
+schemeBSL' :: Lens' Scheme ByteString
+schemeBSL' = lensVL schemeBSL
+
+authorityL' :: Lens' (URIRef a) (Maybe Authority)
+authorityL' = lensVL authorityL
+
+authorityHostL' :: Lens' Authority Host
+authorityHostL' = lensVL authorityHostL
+
+authorityPortL' :: Lens' Authority (Maybe Port)
+authorityPortL' = lensVL authorityPortL
+
+portNumberL' :: Lens' Port Int
+portNumberL' = lensVL portNumberL
+
+hostBSL' :: Lens' Host ByteString
+hostBSL' = lensVL hostBSL
+
+pathL' :: Lens' (URIRef a) ByteString
+pathL' = lensVL pathL