git.iko.soy/rowtype-yoga/purescript-native
on golang help sign in
Fix #750
commitb67717022fb7c9a537bac4f59b971957fb80207f authorPhil Freeman <paf31@cantab.net> dateWed 10 Dec 2014, 20:43 (12 years ago) parent509d5c3
4 files changed+16−6
compare with golang
unifiedsplit
psc-docs/Main.hs+4−2 psc-make/Main.hs+4−2 psc/Main.hs+4−1 psci/Main.hs+4−1
psc-docs/Main.hs+4−2
@@ -244,8 +244,10 @@ pscDocsOptions = PSCDocsOptions <$> includeHeirarcy
244244main :: IO ()
245245main = execParser opts >>= docgen
246246 where
247− opts = info (helper <*> pscDocsOptions) infoModList
247+ opts = info (version <*> helper <*> pscDocsOptions) infoModList
248248 infoModList = fullDesc <> headerInfo <> footerInfo
249249 headerInfo = header "psc-docs - Generate Markdown documentation from PureScript extern files"
250250 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
162162main :: IO ()
163163main = execParser opts >>= compile
164164 where
165− opts = info (helper <*> pscMakeOptions) infoModList
165+ opts = info (version <*> helper <*> pscMakeOptions) infoModList
166166 infoModList = fullDesc <> headerInfo <> footerInfo
167167 headerInfo = header "psc-make - Compiles PureScript to Javascript"
168168 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
192192main :: IO ()
193193main = execParser opts >>= compile
194194 where
195− opts = info (helper <*> pscOptions) infoModList
195+ opts = info (version <*> helper <*> pscOptions) infoModList
196196 infoModList = fullDesc <> headerInfo <> footerInfo
197197 headerInfo = header "psc - Compiles PureScript to Javascript"
198198 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
199202
psci/Main.hs+4−1
@@ -541,8 +541,11 @@ psciOptions = PSCiOptions <$> singleLineFlag
541541main :: IO ()
542542main = execParser opts >>= loop
543543 where
544− opts = info (helper <*> psciOptions) infoModList
544+ opts = info (version <*> helper <*> psciOptions) infoModList
545545 infoModList = fullDesc <> headerInfo <> footerInfo
546546 headerInfo = header "psci - Interactive mode for PureScript"
547547 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
548551