Allow to specify regex for subdir

2020-08-06 13:28:20 +02:00
parent cafedd73a2
commit 5c45884f5f
10 changed files with 123 additions and 33 deletions
--- a/lib/GHCup/Types/JSON.hs
+++ b/lib/GHCup/Types/JSON.hs
@@ -193,3 +193,7 @@ instance FromJSON (Path Rel) where
    case parseRel d of
      Right x -> pure x
      Left  e -> fail $ "Failure in HPath Rel (FromJSON)" <> show e
+
+
+deriveJSON defaultOptions{ sumEncoding = ObjectWithSingleField } ''TarDir
+