b677170 · rowtype-yoga/purescript-native

psc-docs/Main.hs+4−2

compare with golang

unifiedsplit

@@ -244,8 +244,10 @@ pscDocsOptions = PSCDocsOptions <$> includeHeirarcy

244main :: IO ()

245main = execParser opts >>= docgen

246 where

247− opts = info (helper <*> pscDocsOptions) infoModList

247+ opts = info (version <*> helper <*> pscDocsOptions) infoModList

248 infoModList = fullDesc <> headerInfo <> footerInfo

249 headerInfo = header "psc-docs - Generate Markdown documentation from PureScript extern files"

250 footerInfo = footer $ "psc-docs " ++ showVersion Paths.version

251−

251+

252+ version :: Parser (a -> a)

253+ version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> help "Show the version number" <> hidden

psc-make/Main.hs+4−2

@@ -162,8 +162,10 @@ pscMakeOptions = PSCMakeOptions <$> many inputFile

162main :: IO ()

163main = execParser opts >>= compile

164 where

165− opts = info (helper <*> pscMakeOptions) infoModList

165+ opts = info (version <*> helper <*> pscMakeOptions) infoModList

166 infoModList = fullDesc <> headerInfo <> footerInfo

167 headerInfo = header "psc-make - Compiles PureScript to Javascript"

168 footerInfo = footer $ "psc-make " ++ showVersion Paths.version

169−

169+

170+ version :: Parser (a -> a)

171+ version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> help "Show the version number" <> hidden

psc/Main.hs+4−1

@@ -192,8 +192,11 @@ pscOptions = PSCOptions <$> many inputFile

192main :: IO ()

193main = execParser opts >>= compile

194 where

195− opts = info (helper <*> pscOptions) infoModList

195+ opts = info (version <*> helper <*> pscOptions) infoModList

196 infoModList = fullDesc <> headerInfo <> footerInfo

197 headerInfo = header "psc - Compiles PureScript to Javascript"

198 footerInfo = footer $ "psc " ++ showVersion Paths.version

199+

200+ version :: Parser (a -> a)

201+ version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> help "Show the version number" <> hidden

199

202

psci/Main.hs+4−1

@@ -541,8 +541,11 @@ psciOptions = PSCiOptions <$> singleLineFlag

541main :: IO ()

542main = execParser opts >>= loop

543 where

544− opts = info (helper <*> psciOptions) infoModList

544+ opts = info (version <*> helper <*> psciOptions) infoModList

545 infoModList = fullDesc <> headerInfo <> footerInfo

546 headerInfo = header "psci - Interactive mode for PureScript"

547 footerInfo = footer $ "psci " ++ showVersion Paths.version

548+

549+ version :: Parser (a -> a)

550+ version = abortOption (InfoMsg (showVersion Paths.version)) $ long "version" <> Opts.help "Show the version number" <> hidden

548

551