facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2025-01-07 06:19:10 +03:00
Code Issues Packages Projects Releases Wiki Activity

add support for setting the port (#281)

Browse Source 
Summary:
+ based on https://stackoverflow.com/a/51671356/630160 I have implemented:
    - passing in `--port=8080`
    - or setting PORT=8080 as environment variable
  where  `default < PORT < --port`, i.e. a --port parameter overrides both an environment variable and a default value, and an environment variable PORT overrides the default value.

+ change small hlint: `fromMaybe def . fmap f = `maybe def f`
Pull Request resolved: https://github.com/facebook/duckling/pull/281

Differential Revision: D13388735

Pulled By: patapizza

fbshipit-source-id: cbc4a819036dbec474526b862b0f6187f02b6155
This commit is contained in:
Martin Heuschober 2018-12-12 11:04:51 -08:00 committed by Facebook Github Bot
parent 0093590968
commit 36eda02097
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
exe/ExampleMain.hs
View File

@ -21,6 +21,7 @@ import Data.Text (Text)
import Data.Time.LocalTime.TimeZone.Series import Data.Time.LocalTime.TimeZone.Series
import Prelude import Prelude
import System.Directory import System.Directory
import System.Environment (lookupEnv)
import TextShow import TextShow
import Text.Read (readMaybe) import Text.Read (readMaybe)
import qualified Data.ByteString.Lazy as LBS import qualified Data.ByteString.Lazy as LBS
@ -51,7 +52,10 @@ main :: IO ()
main = do main = do
setupLogs setupLogs
tzs <- loadTimeZoneSeries "/usr/share/zoneinfo/" tzs <- loadTimeZoneSeries "/usr/share/zoneinfo/"
quickHttpServe $ p <- lookupEnv "PORT"
conf <- commandLineConfig $
maybe defaultConfig (`setPort` defaultConfig) (readMaybe =<< p)
httpServe conf $
ifTop (writeBS "quack!") <|> ifTop (writeBS "quack!") <|>
route route
[ ("targets", method GET targetsHandler) [ ("targets", method GET targetsHandler)
@ -117,7 +121,7 @@ parseHandler tzs = do
] ]
parseTimeZone :: Maybe ByteString -> Text parseTimeZone :: Maybe ByteString -> Text
parseTimeZone = fromMaybe defaultTimeZone . fmap Text.decodeUtf8 parseTimeZone = maybe defaultTimeZone Text.decodeUtf8
parseLocale :: ByteString -> Locale parseLocale :: ByteString -> Locale
parseLocale x = maybe defaultLocale (`makeLocale` mregion) mlang parseLocale x = maybe defaultLocale (`makeLocale` mregion) mlang
@ -141,3 +145,4 @@ parseHandler tzs = do
parseLatent :: Maybe ByteString -> Bool parseLatent :: Maybe ByteString -> Bool
parseLatent x = fromMaybe defaultLatent parseLatent x = fromMaybe defaultLatent
(readMaybe (Text.unpack $ Text.toTitle $ Text.decodeUtf8 $ fromMaybe empty x)::Maybe Bool) (readMaybe (Text.unpack $ Text.toTitle $ Text.decodeUtf8 $ fromMaybe empty x)::Maybe Bool)