Fix comment that confused compiler.

This commit is contained in:
Jesse Rosenthal
2017-12-11 07:00:17 -05:00
parent 8fd51e12ef
commit be6b43b14c
-2
View File
@@ -1658,8 +1658,6 @@ getContentType fp
| "ppt" : "theme" : f : [] <- splitDirectories fp
, (_, ".xml") <- splitExtension f =
Just $ noPresML ++ ".theme+xml"
-- | "ppt" : "slideLayouts" : f : [] <- splitDirectories fp
-- , (_, ".xml") <- splitExtension f =
| "ppt" : "slideLayouts" : _ : [] <- splitDirectories fp=
Just $ presML ++ ".slideLayout+xml"
| otherwise = Nothing