module Data.DICOM.FileMetaInformation (
FileMetaInformation(..),
fileMetaInformation
) where
import Data.DICOM.Object
import Data.DICOM.Dictionary
import Data.String
data FileMetaInformation = FileMetaInformation
{ fmiSOPClassUID :: String
, fmiSOPInstanceUID :: String
, fmiTransferSyntaxUID :: String
, fmiSOPImplementationClassUID :: String
} deriving (Show, Eq, Ord)
fileMetaInformation :: FileMetaInformation -> Object
fileMetaInformation FileMetaInformation{..} = object
[ filemetainformationversion "\0\1"
, mediastoredsopclassuid $ fromString fmiSOPClassUID
, mediastoredsopinstanceuid $ fromString fmiSOPInstanceUID
, transfersyntaxuid $ fromString fmiTransferSyntaxUID
, implementationclassuid $ fromString fmiSOPImplementationClassUID
]