fpco-api 1.2.0.1 → 1.2.0.2

raw patch · 2 files changed

+8/−7 lines, 2 filesdep ~optparse-applicativedep ~yesod-fay

Dependency ranges changed: optparse-applicative, yesod-fay

Files

• fpco-api.cabal +2/−2
• src/executables/Main.hs +6/−5

@@ -1,5 +1,5 @@ name:          fpco-api-version:       1.2.0.1+version:       1.2.0.2 synopsis:      Simple interface to the FP Complete IDE API. description:   A server and library for communicating with the FP Complete IDE API. homepage:      https://www.fpcomplete.com/page/api@@ -103,7 +103,7 @@       , fpco-api       , ini                  >= 0.2.0       , network              >= 2.4-      , optparse-applicative >= 0.5+      , optparse-applicative >= 0.11       , process              >= 1.1       , safe                 >= 0.3       , text                 >= 0.11

@@ -29,6 +29,7 @@ import           Data.Text.Read import           Network import           Options.Applicative+import           Options.Applicative.Types (readerAsk) import           Prelude hiding (catch) import           Safe import           System.Directory@@ -134,34 +135,34 @@ -- | PID option. fayPidOpt :: Parser ProjectId fayPidOpt =-  argument (return . toFay)+  argument (toFay <$> readerAsk)    (metavar "PID")  -- | PROJECT option. fayProjectOpt :: Parser (Either Text ProjectId) fayProjectOpt =-  argument (return . toFayPid)+  argument (toFayPid <$> readerAsk)            (metavar "PROJECT" <>             help "Either a project URL or a project ID")  -- | ROOT option. rootOpt :: Parser FilePath rootOpt =-  argument return+  argument readerAsk            (metavar "ROOT" <>             help "Project root directory")  -- | FILEPATH option. filepathOpt :: Parser FilePath filepathOpt =-  argument return+  argument readerAsk            (metavar "FILEPATH" <>             help "The file path")  -- | TMPPATH option. tmppathOpt :: Parser FilePath tmppathOpt =-  argument return+  argument readerAsk            (metavar "TMPPATH" <>             help "The temporary file path containing the actual contents of the module")