@@ -146,7 +146,8 @@ writeDocx mbRefDocx opts doc@(Pandoc (Meta tit auths date) _) = do
146146 let styledoc = case findEntryByPath stylepath refArchive >>=
147147 parseXMLDoc . toString . fromEntry of
148148 Just d -> d
149− Nothing -> error $ stylepath ++ "missing in reference docx"
149+ Nothing -> error $ "Unable to parse " ++ stylepath ++
150+ " from reference.docx"
150151 let styledoc' = styledoc{ elContent = elContent styledoc ++ map Elem newstyles }
151152 let styleEntry = toEntry stylepath epochtime $ fromString $ showTopElement' styledoc'
152153 -- construct word/numbering.xml