yesod-default 1.1.2 → 1.1.3

raw patch · 2 files changed

+12/−2 lines, 2 files

Files

• Yesod/Default/Config.hs +11/−1
• yesod-default.cabal +1/−1

@@ -181,7 +181,17 @@      let host    = fromString $ T.unpack $ fromMaybe "*" $ lookupScalar "host"    m     mport <- parseMonad (\x -> x .: "port") m-    let approot = fromMaybe "" $ lookupScalar "approot" m+    let approot' = fromMaybe "" $ lookupScalar "approot" m++    -- Handle the DISPLAY_PORT environment variable for yesod devel+    approot <-+        case T.stripSuffix ":3000" approot' of+            Nothing -> return approot'+            Just prefix -> do+                envVars <- getEnvironment+                case lookup "DISPLAY_PORT" envVars of+                    Nothing -> return approot'+                    Just p -> return $ prefix `T.append` T.pack (':' : p)      extra <- parseMonad (parseExtra env) m 

@@ -1,5 +1,5 @@ name:            yesod-default-version:         1.1.2+version:         1.1.3 license:         MIT license-file:    LICENSE author:          Patrick Brisbin