Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Switch (&) to (<>) to avoid deprication warning.

  • Loading branch information...
commit 9a2b816853e432436b7ec4f9413fa95990fbeaed 1 parent b26504a
@colah authored
Showing with 3 additions and 3 deletions.
  1. +3 −3 extopenscad.hs
View
6 extopenscad.hs
@@ -23,7 +23,7 @@ import Data.AffineSpace
import Control.Applicative
-- The following is needed to ensure backwards/forwards compatibility
-- make sure we don't import (<>) in new versions.
-import Options.Applicative (fullDesc, progDesc, header, info, helper, help, str, argument, switch, value, long, short, option, metavar, nullOption, reader, execParser, (&), Parser)
+import Options.Applicative (fullDesc, progDesc, header, info, helper, help, str, argument, switch, value, long, short, option, metavar, nullOption, reader, execParser, Parser)
import System.FilePath
-- Backwards compatibility with old versions of Data.Monoid:
@@ -95,8 +95,8 @@ extOpenScadOpts =
<> help "Approximation quality"
)
<*> switch
- ( long "xml-error"
- & help "Report XML errors"
+ ( long "xml-error"
+ <> help "Report XML errors"
)
<*> argument str ( metavar "FILE" )
Please sign in to comment.
Something went wrong with that request. Please try again.