"イェソドのdevelのは" devel.hs

Question

にfromJustで失敗しますI私のブラウザでサイトを開くことはできません）

誰が

私の環境でこの問題を解決する方法を知っていますか？A：

• イェソド-0.9.4.1
• 栄光グラスゴーHaskellのコンパイルシステム、バージョン7.0.3
• のMac OS X 10.6.8ここで

はDIST/devel.hs、作成した "イェソドの初期化" である。

{-# LANGUAGE PackageImports #-} 
import "bbbb" Application (withDevelAppPort) 
import Data.Dynamic (fromDynamic) 
import Network.Wai.Handler.Warp 
    (runSettings, defaultSettings, settingsPort, settingsHost) 
import Data.Maybe (fromJust) 
import Control.Concurrent (forkIO) 
import System.Directory (doesFileExist, removeFile) 
import System.Exit (exitSuccess) 
import Control.Concurrent (threadDelay) 

main :: IO() 
main = do 
    putStrLn "Starting devel application" 
    wdap <- (return . fromJust . fromDynamic) withDevelAppPort 
    forkIO . wdap $ \(port, app) -> runSettings defaultSettings 
    { settingsPort = port 
    , settingsHost = "0.0.0.0" 
    } app 
    loop 

loop :: IO() 
loop = do 
    threadDelay 100000 
    e <- doesFileExist "dist/devel-terminate" 
    if e then terminateDevel else loop 

terminateDevel :: IO() 
terminateDevel = exitSuccess 

bbbbディレクトリにすべてのファイルをアップロードし、Application.hsは https://github.com/suztomo/LanguageStudy/blob/master/Haskell/Yesod/bbbb/Application.hsです。

Answer 1

暗い回答のショット：yesod-default 0.5を使用しているキャバルファイルをチェックインします。