git.iko.soy/stackage
on e46572e help sign in
stackage/patching/patches/fay-0.18.0.0.patch
32 lines 1.2 kB history raw
1diff -ru orig/src/main/Main.hs new/src/main/Main.hs
2--- orig/src/main/Main.hs 2013-10-14 09:10:24.895239824 +0300
3+++ new/src/main/Main.hs 2013-10-14 09:10:24.000000000 +0300
4@@ -1,3 +1,4 @@
5+{-# LANGUAGE CPP #-}
6 {-# LANGUAGE FlexibleContexts #-}
7 {-# LANGUAGE RecordWildCards #-}
8 -- | Main compiler executable.
9@@ -15,6 +16,9 @@
10 import Data.Maybe
11 import Data.Version (showVersion)
12 import Options.Applicative
13+#if MIN_VERSION_optparse_applicative(0,6,0)
14+import Options.Applicative.Types
15+#endif
16 import System.Environment
18 -- | Options and help.
19@@ -119,8 +123,13 @@
20 <*> switch (long "typecheck-only" <> help "Only invoke GHC for typechecking, don't produce any output")
21 <*> optional (strOption $ long "runtime-path" <> help "Custom path to the runtime so you don't have to reinstall fay when modifying it")
24 where strsOption m =
25+#if MIN_VERSION_optparse_applicative(0,6,0)
26+ nullOption (m <> reader (ReadM . Right . wordsBy (== ',')) <> value [])
27+#else
28 nullOption (m <> reader (Right . wordsBy (== ',')) <> value [])
29+#endif
32 -- | Make incompatible options.