yesod のリロード機能を再実装する

昨日 *1 はYesodからファイルを持ってきたが、ここでしていることは関連ファイルを監視して変更があればrunghcを実行するというもの。

何をやっているのかを理解するために、リロードする部分だけ抜き出して写経した。

yesod のコードから cabal を使わないようにして依存関係の処理を削っただけ。

動かすにはdevel.hsが必要。

module Main where

import Prelude
import Network.Wai (Application)
import Network.Wai.Handler.Warp
    (runSettings, defaultSettings, settingsPort)
import Control.Concurrent (forkIO)
import Network.Wai.Middleware.RequestLogger (logStdoutDev)
import Application
import Reload (develLoop)


main :: IO ()
main = do
  putStrLn "Starting devel application on localhost:3000"
  _ <- forkIO $ runSettings defaultSettings
    { settingsPort = 3000 } getApplicationDev
  develLoop

getApplicationDev :: Application
getApplicationDev = logStdoutDev getApplication