1 module Databrary.Model.AssetRevision.Types 2 ( AssetRevision(..) 3 , makeAssetRevision 4 ) where 5 6 import Databrary.Model.Asset.Types 7 8 data AssetRevision = AssetRevision 9 { revisionAsset :: !Asset 10 , revisionOrig :: !Asset 11 } 12 13 makeAssetRevision :: Asset -> Asset -> AssetRevision 14 makeAssetRevision o a = AssetRevision a o