@@ -0,0 +1,32 @@
1+diff -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
17+
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")
22+
23++
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
30+
31+
32+ -- | Make incompatible options.