{- | Adds a file from a FileRec. -}
addFileRec conn discid fr = 
    addFile conn discid (frname fr) (frsize fr) (frmd5 fr) (frmime fr)
addFileRec conn discid fr = 
    addFile conn discid (frname fr) (frsize fr) (frmd5 fr) (frmime fr)
addFileRec conn discid fr = 
    addFile conn discid (frname fr) (frsize fr) (frmd5 fr) (frmime fr)