Merge branch 'pr/129' into next

Conflicts:
	.gitignore
	Setup.hs
	backend/Main.hs
	elm-reactor.cabal

.gitignore

@@ -1,5 +1,7 @@
 dist
 assets/_reactor/debug.js
+assets/_reactor/index.js
 elm-stuff
 cabal.sandbox.config
 elm.js
+.cabal-sandbox/

Setup.hs

@@ -11,6 +11,8 @@ import System.FilePath
 import System.Directory
 
 
+-- RUN EVERYTHING
+
 main :: IO ()
 main =
   defaultMainWithHooks simpleUserHooks { postBuild = myPostBuild }
@@ -19,25 +21,53 @@ main =
 myPostBuild :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
 myPostBuild args flags pd lbi =
   do  putStrLn "Custom build step: creating and collecting all static resources"
+
       buildSideBar
+      buildIndex
+
       src <- readFile ("frontend" </> "debugger-implementation.js")
-      appendFile output src
+      appendFile debugPath src
       postBuild simpleUserHooks args flags pd lbi
 
 
-output :: FilePath
-output =
+-- PATHS
+
+debugPath :: FilePath
+debugPath =
   "assets" </> "_reactor" </> "debug.js"
 
 
+indexPath :: FilePath
+indexPath =
+  "assets" </> "_reactor" </> "index.js"
+
+
+-- BUILD STATIC FILES
+
 buildSideBar :: IO ()
 buildSideBar =
+  compile "Debugger.elm" debugPath
+
+
+buildIndex :: IO ()
+buildIndex =
+  compile "Index.elm" indexPath
+
+
+compile :: FilePath -> FilePath -> IO ()
+compile source target =
   do  (exitCode, out, err) <-
-        readProcessWithExitCode "elm-make" [ "--yes", "frontend" </> "Debugger.elm", "--output=" ++ output ] ""
+          readProcessWithExitCode
+              "elm-make"
+              [ "--yes", "frontend" </> source, "--output=" ++ target ]
+              ""
+
       case exitCode of
         ExitSuccess ->
           return ()
 
         ExitFailure _ ->
-          do  hPutStrLn stderr ("Failed to build Debugger.elm\n\n" ++ out ++ err)
+          do  hPutStrLn stderr (unlines ["Failed to build" ++ source, "", out, err])
               exitFailure
+
+