Fix comment that confused compiler.

This commit is contained in:
Jesse Rosenthal 2017-12-10 15:48:02 -05:00
parent 8fd51e12ef
commit be6b43b14c

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