2

settings.ymlのapprootプロパティにベースパスを追加すると、次のようになります。

approot = "http：// localhost：3000 / base"

ブラウザでこのURLを呼び出すと、ホームページが正しく表示されるのではなく、メッセージとして「見つかりません」と表示されます。

私はそれを解決する方法を見つけることができませんでした。

..。

なるほど、yesodタスクに送信する前にベースプレフィックスなしでURLを書き換える必要があり、approotはすべてのページリンクの先頭にのみ使用されます。

これらの空でないパスベースのURLを処理する適切な方法はありますか？

4

2 に答える 2

3

これには、次の 2 つの比較的単純なアプローチがあります。

  1. pathInfo から先頭の「ベース」値を削除するミドルウェアを作成します。
  2. 同じことを行うには、(Yesod 型クラスの) cleanPath をオーバーライドします。

一般に、リード パス ピースを持つ approot は、(リバース プロキシまたは FastCGI を介して) Yesod アプリを呼び出すフロント サーバーがある場合に最も役立ちます。

于 2012-10-02T18:11:06.360 に答える
2

M.Snoyman のヒントに従って、生成されたモジュール Foundation.hs への追加として、によって生成された ApprootMaster コンストラクターの approot ケースについて、質問を解決するcleanPathバージョンを次に示します。yesod init

{-# LANGUAGE PackageImports #-}
import qualified Data.Text as Txt
import qualified "url" Network.URL as Url
import qualified Network.HTTP.Types as H
import qualified Data.Text.Encoding as TE
import qualified Data.List as L
import qualified "utf8-string" Data.ByteString.UTF8 as UTF8BS

-- instance Yesod App where

    -- cleanPath - A function used to clean up path segments. 
    -- It returns Right with a clean path or Left with a new set of pieces the user should be redirected to

    -- cleanPath :: Yesod a => a -> [Text] -> Either [Text] [Text]
    cleanPath master s =
        if corrected == s'
            then Right $ cutoffBasePrefix s'
            else Left $ cutoffBasePrefix corrected   -- to be redirected
      where
        -- avoid redirection on slash ended urls by junking the last piece if it's null

        s' = if not (L.null s) && Txt.null (last s) then init s else s

        corrected = filter (not . Txt.null) s'

        -- strToUtf8BS = TE.encodeUtf8 . Txt.pack  -- packs to UTF16 then encodes to UTF8
        strToUtf8BS = UTF8BS.fromString

        -- cut off "base prefix" or leave as it is

        cutoffBasePrefix segmts =
                case approot of
                     ApprootMaster f ->
                         case Url.importURL $ Txt.unpack $ f master of
                              Nothing -> segmts   -- not expected, incorrect url in settings.yml approot
                              Just url -> let basePrefixSegmts = H.decodePathSegments $ strToUtf8BS $ Url.url_path url in
                                          case basePrefixSegmts of
                                               [] -> segmts
                                               _ -> if basePrefixSegmts `L.isPrefixOf` segmts
                                                       then drop (length basePrefixSegmts) segmts
                                                       else segmts


                     _ -> segmts

これらの追加のパッケージ依存関係:

, url                           >= 2.1.2
, network
, http-types
, utf8-string
于 2012-10-03T14:01:20.343 に答える