Aeson instances for URI

Author: functora

pub/functora/src/cfg/Functora/CfgOrphan.hs

@@ -2,14 +2,26 @@
 
 module Functora.CfgOrphan () where
 
+import qualified Data.Aeson as A
 import Functora.Prelude
 import qualified Text.URI as URI
 import qualified Toml
 
+instance A.ToJSON URI where
+  toJSON =
+    A.toJSON . URI.render
+
+instance A.FromJSON URI where
+  parseJSON =
+    A.withText "URI"
+      $ either (fail . displayException) pure
+      . URI.mkURI
+
 instance Toml.HasCodec URI where
   hasCodec =
-    Toml.textBy URI.render $
-      first (from @String @Text . displayException) . URI.mkURI
+    Toml.textBy URI.render
+      $ first (from @String @Text . displayException)
+      . URI.mkURI
 
 instance Toml.HasItemCodec URI where
   hasItemCodec =
@@ -21,4 +33,5 @@ instance Toml.HasItemCodec URI where
               (const . Toml.MatchError Toml.TText $ Toml.AnyValue src)
               $ URI.mkURI txt
         )
-      $ Toml.Text . URI.render
+      $ Toml.Text
+      . URI.render