Slightly improve titles

Author: evancz

elm-website.cabal

@@ -46,6 +46,7 @@ executable run-elm-website
     process,
     snap-core,
     snap-server,
+    split,
     text,
     time,
     utf8-string

src/backend/Init/Helpers.hs

@@ -1,6 +1,8 @@
 module Init.Helpers (isOutdated, make, makeWithStyle, write) where
 
 import Control.Monad.Except (runExceptT, when)
+import qualified Data.List as List
+import qualified Data.List.Split as List
 import System.Directory (doesFileExist, getModificationTime, removeFile)
 import System.FilePath (splitExtension, takeBaseName)
 import System.Exit (exitFailure)
@@ -39,7 +41,7 @@ makeWithStyle input output =
               ".html" ->
                 do  jsSource <- readFile jsOutput
                     writeFile output
-                        (Blaze.renderHtml (Generate.serverHtml (takeBaseName output) jsSource))
+                        (Blaze.renderHtml (Generate.serverHtml (fileToTitle output) jsSource))
                     removeFile jsOutput
 
               _ ->
@@ -48,6 +50,11 @@ makeWithStyle input output =
       return outdated
 
 
+fileToTitle :: FilePath -> String
+fileToTitle filePath =
+  List.intercalate " " (List.splitOn "-" (takeBaseName filePath))
+
+
 makeForReal :: FilePath -> FilePath -> IO ()
 makeForReal input output =
   do  compilerResult <-