@@ -342,8 +342,10 @@ getLayout layout = do
342342 (TitleSlide _) -> "ppt/slideLayouts/slideLayout3.xml"
343343 (ContentSlide _ _) -> "ppt/slideLayouts/slideLayout2.xml"
344344 (TwoColumnSlide _ _ _) -> "ppt/slideLayouts/slideLayout4.xml"
345+ refArchive <- asks envRefArchive
345346 distArchive <- asks envDistArchive
346− root <- case findEntryByPath layoutpath distArchive of
347+ root <- case findEntryByPath layoutpath refArchive `mplus`
348+ findEntryByPath layoutpath distArchive of
347349 Just e -> case parseXMLDoc $ UTF8.toStringLazy $ fromEntry e of
348350 Just element -> return $ element
349351 Nothing -> throwError $
@@ -1166,8 +1168,10 @@ slideToElement (Slide _ l@(MetadataSlide titleElems subtitleElems authorElems da
11661168getNotesMaster :: PandocMonad m => P m Element
11671169getNotesMaster = do
11681170 let notesMasterPath = "ppt/notesMasters/notesMaster1.xml"
1171+ refArchive <- asks envRefArchive
11691172 distArchive <- asks envDistArchive
1170− root <- case findEntryByPath notesMasterPath distArchive of
1173+ root <- case findEntryByPath notesMasterPath refArchive `mplus`
1174+ findEntryByPath notesMasterPath distArchive of
11711175 Just e -> case parseXMLDoc $ UTF8.toStringLazy $ fromEntry e of
11721176 Just element -> return $ element
11731177 Nothing -> throwError $