@@ -738,13 +738,6 @@ instance FromJSON VolumePermission where
738738-- @
739739newtype Volume = Volume FilePath deriving (Eq, Show)
740740
741−instance ToJSON Volume where
742− toJSON (Volume fp) = JSON.Object $ HM.insert (T.pack fp) (JSON.Object HM.empty) HM.empty
743−
744−instance FromJSON Volume where
745− parseJSON (JSON.Object o) = return $ Volume $ T.unpack $ head $ HM.keys o
746− parseJSON _ = fail "Volume is not an object"
747−
748741instance ToJSON [Volume] where
749742 toJSON [] = JSON.Object HM.empty
750743 toJSON (v:vs) = JSON.Object $ foldl f HM.empty (v:vs)