@@ -22,7 +22,6 @@ import qualified Text.Blaze.Html.Renderer.Utf8 as Blaze
2222import qualified Develop.Compile as Compile
2323import qualified Develop.Generate.Help as Generate
2424import qualified Develop.Generate.Index as Index
25−import qualified Develop.Generate.NotFound as NotFound
2625import qualified Develop.StaticFiles as StaticFiles
2726
2827
@@ -38,14 +37,6 @@ data Flags =
3837
3938run :: () -> Flags -> IO ()
4039run () (Flags maybePort) =
41− -- TODO get `elm reactor` running again
42− if True then
43− putStrLn $
44− "The reactor is not available in the ALPHA period.\n\
45− \\n\
46− \The goal is for package authors to get code updated and give early feedback.\n\
47− \Professionals and hobbyists should NOT be ugrading at this time!\n"
48− else
4940 let
5041 port =
5142 maybe 8000 id maybePort
@@ -111,7 +102,11 @@ error404 :: Snap ()
111102error404 =
112103 do modifyResponse $ setResponseStatus 404 "Not Found"
113104 modifyResponse $ setContentType "text/html; charset=utf-8"
114− writeBuilder (Blaze.renderHtmlBuilder NotFound.html)
105+ writeBuilder $ Blaze.renderHtmlBuilder $
106+ Generate.makeHtml
107+ "Page Not Found"
108+ ("/" ++ StaticFiles.elmPath)
109+ "Elm.NotFound.fullscreen();"
115110
116111
117112