Permalink
Browse files

bug fix: takeExtension actually leaves . as part of the output

  • Loading branch information...
1 parent 3e66918 commit 24c58692a63ad75dc4cc4d6931849a59284791e1 Brent Yorgey committed Jan 18, 2013
Showing with 5 additions and 5 deletions.
  1. +5 −5 src/Diagrams/Backend/Cairo.hs
@@ -134,8 +134,8 @@ renderCairo outFile sizeSpec d
where
outTy =
case takeExtension outFile of
- "png" -> PNG
- "ps" -> PS
- "pdf" -> PDF
- "svg" -> SVG
- _ -> PNG
+ ".png" -> PNG
+ ".ps" -> PS
+ ".pdf" -> PDF
+ ".svg" -> SVG
+ _ -> PNG

0 comments on commit 24c5869

Please sign in to comment.