@@ -1619,16 +1619,18 @@ presentationToPresentationElement pres@(Presentation _ slds) = do
16191619
16201620 -- if there's a notesMasterIdLst in the presentation.xml file,
16211621 -- we want to remove it. We then want to put our own, if
1622− -- necessary, after the slideMasterIdLst element.
1622+ -- necessary, after the slideMasterIdLst element. We also remove
1623+ -- handouts master, since we don't want it.
16231624
1624− removeNotesMaster' :: Content -> [Content]
1625− removeNotesMaster' (Elem e) = case elName e of
1625+ removeUnwantedMaster' :: Content -> [Content]
1626+ removeUnwantedMaster' (Elem e) = case elName e of
16261627 (QName "notesMasterIdLst" _ _) -> []
1628+ (QName "handoutMasterIdLst" _ _) -> []
16271629 _ -> [Elem e]
1628− removeNotesMaster' ct = [ct]
1630+ removeUnwantedMaster' ct = [ct]
16291631
1630− removeNotesMaster :: [Content] -> [Content]
1631− removeNotesMaster = concatMap removeNotesMaster'
1632+ removeUnwantedMaster :: [Content] -> [Content]
1633+ removeUnwantedMaster = concatMap removeUnwantedMaster'
16321634
16331635 insertNotesMaster' :: Content -> [Content]
16341636 insertNotesMaster' (Elem e) = case elName e of
@@ -1642,7 +1644,7 @@ presentationToPresentationElement pres@(Presentation _ slds) = do
16421644 else id
16431645
16441646 newContent = insertNotesMaster $
1645− removeNotesMaster $
1647+ removeUnwantedMaster $
16461648 map modifySldIdLst $
16471649 elContent element
16481650