WAI 外部htmlファイルの使用
「基本的な例」を参考にして、プロジェクトとGitリポジトリ を作成してください。
htmlファイル
プロジェクト内に次の内容の「index.html」というファイルを作成してください
<html><head><title>wai_app</title></head>
<body>
<h1>Hello app Design!</h1>
<h3>This is app Design test site.</h3>
</body>
</html>
Main.hs
「src/Main.hs」を次のコードに変更。
{-# LANGUAGE OverloadedStrings #-}
import Network.Wai
import Network.HTTP.Types
import Network.Wai.Handler.Warp (run, Port)
import System.Environment (getEnvironment)
import Data.List (lookup)
import Data.Maybe
app :: Application
app _ respond = respond index
index :: Response
index = responseFile
status200
[("Content-Type", "text/html")]
"index.html"
Nothing
main :: IO ()
main = do
port <- getPort
run port app
getPort :: IO Port
getPort = getEnvironment >>= return . port
where
port = fromMaybe defaultPort . fmap read . lookup "PORT"
defaultPort :: Port
defaultPort = 80
ビルドとデプロイ
ビルド
stack build
Git リポジトリにプロジェクト内のすべてのファイルを追加
git add .
追加したファイルをリポジトリに関連付ける
git commit -m "wai-app"
デプロイ
git push dokku master
初回デプロイはリモートリポジトリにHaskell環境をインストールするために時間が かかります。2回目からはそれほど時間はかかりません。
次のように表示されればデプロイは成功しています。
=====> Application deployed:
https://123.123.123.123:12345
To 123.134.134.123:wai-app
xxxxxxxxxxxxxx master -> master
「https://123.123.123.123:12345」がアプリのURLです。ブラウザで確認してください。
CentOSの場合は「https://123-123-123-123:12345」というハイフン区切りで表示されます ので、「https://123.123.123.123:12345」というドット区切りに直して確認してください。
ファイアーウォールの設定
リモートサーバーがCentOSの場合は、ファイアーウォールの設定をしなければサイトが 表示されません。
CentOSサーバにログインして次の作業をしてください。「12345」の部分は、
「:」の後の5桁のポート番号です。この作業はUbuntuサーバーでは必要
ありません。
firewall-cmd --zone=public --add-port=12345/tcp --permanent
firewall-cmd --reload
トラブルシューティング
デプロイに失敗する場合は次のことを試してみてください。
ファイルの記述に間違いがないか
プロジェクトはビルドしたか
.ssh/known_hostsファイルを削除する次のコードを実行してリポジトリを削除して、またリポジトリを作り直す。
rm -rf .git
リモートサーバーでリポジトリを削除して、またリポジトリを作り直す。
ssh root@123.123.123.123リモートサーバーのリポジトリを作り直した場合は、アプリケーションのポート番号が 変更されます。またリモートサーバーのリポジトリを作り直した後の、初回デプロイは、 時間がかかります。
su dokku
cd
dokku apps:destroy wai-app
wwai-app
dokku apps:create wai-app
dokku apps:list