Merge pull request #39 from robx/nops

remove claimed PostScript support
robx · Nov 24, 2018 · 7e9c0f1 · 7e9c0f1
2 parents 602ef26 + 97efd6d
commit 7e9c0f1
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,3 +1,5 @@
+* Remove non-existent PostScript support.
+
 0.3.1.0: 20181119
 -----------------
 

diff --git a/src/Draw/CmdLine.hs b/src/Draw/CmdLine.hs
@@ -29,22 +29,20 @@ renderRasterific ropts = Rasterific.renderRasterific (_file ropts) (_size ropts)
 renderSVG :: RenderOpts -> Diagram SVG.B -> IO ()
 renderSVG ropts = SVG.renderSVG (_file ropts) (_size ropts)
 
-data Format = PNG | PS | PDF | SVG | JPG
+data Format = PNG | PDF | SVG | JPG
 
 data BackendType = BackendRasterific | BackendSVG
 
 backend :: Format -> BackendType
 backend b = case b of
   PNG -> BackendRasterific
-  PS -> BackendRasterific
   PDF -> BackendRasterific
   JPG -> BackendRasterific
   SVG -> BackendSVG
 
 lookupFormat :: String -> Maybe Format
 lookupFormat f = case f of
     "png" -> Just PNG
-    "ps" -> Just PS
     "pdf" -> Just PDF
     "svg" -> Just SVG
     "jpg" -> Just JPG
@@ -54,9 +52,8 @@ extension :: Format -> String
 extension f = case f of
     PNG -> "png"
     PDF -> "pdf"
-    PS -> "ps"
     SVG -> "svg"
     JPG -> "jpg"
 
 formats :: [Format]
-formats = [PNG, JPG, PS, PDF, SVG]
+formats = [PNG, JPG, PDF, SVG]