@@ -1658,8 +1658,6 @@ getContentType fp
16581658 | "ppt" : "theme" : f : [] <- splitDirectories fp
16591659 , (_, ".xml") <- splitExtension f =
16601660 Just $ noPresML ++ ".theme+xml"
1661− -- | "ppt" : "slideLayouts" : f : [] <- splitDirectories fp
1662− -- , (_, ".xml") <- splitExtension f =
16631661 | "ppt" : "slideLayouts" : _ : [] <- splitDirectories fp=
16641662 Just $ presML ++ ".slideLayout+xml"
16651663 | otherwise = Nothing