@@ -738,13 +738,6 @@ instance FromJSON VolumePermission where
739newtype Volume = Volume FilePath deriving (Eq, Show)
739newtype Volume = Volume FilePath deriving (Eq, Show)
741−instance ToJSON Volume where
742− toJSON (Volume fp) = JSON.Object $ HM.insert (T.pack fp) (JSON.Object HM.empty) HM.empty
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"
748instance ToJSON [Volume] where
741instance ToJSON [Volume] where
749 toJSON [] = JSON.Object HM.empty
742 toJSON [] = JSON.Object HM.empty
750 toJSON (v:vs) = JSON.Object $ foldl f HM.empty (v:vs)
743 toJSON (v:vs) = JSON.Object $ foldl f HM.empty (v:vs)