@@ -1,13 +1,12 @@
11{-# LANGUAGE OverloadedStrings #-}
2−module Generate.Html (generateHtml,
3− createHtml,
4− JSStyle (..),
5− JSSource (..)
6− ) where
2+module Generate.Html
3+ (generateHtml,
4+ createHtml,
5+ JSStyle (..),
6+ JSSource (..)
7+ ) where
78
8−import Data.List (intercalate)
99import Text.Blaze (preEscapedToMarkup)
10−import Text.Blaze.Html (Html)
1110import qualified Text.Blaze.Html5 as H
1211import Text.Blaze.Html5 ((!))
1312import qualified Text.Blaze.Html5.Attributes as A
@@ -18,7 +17,6 @@ import qualified Data.ByteString.Lazy.Char8 as BS
1817import Initialize (buildFromSource)
1918import Generate.JavaScript
2019import Generate.Noscript
21−import Metadata.Libraries as Libraries
2220
2321data JSStyle = Minified | Readable
2422data JSSource = Link String | Source JSStyle String
@@ -41,7 +39,7 @@ makeScript source =
4139generateHtml :: String -- ^ Location of elm-runtime.js as expected by the browser
4240 -> String -- ^ The page title
4341 -> String -- ^ The elm source code.
44− -> Html
42+ -> H.Html
4543generateHtml libLoc title source = H.span "broken for now"
4644{--
4745 case buildFromSource True source of
@@ -61,7 +59,7 @@ modulesToHtml libLoc title scripts nscrpt modules =
6159 where Module names _ _ _ = last modules
6260--}
6361
64−createHtml :: FilePath -> String -> [JSSource] -> String -> Html
62+createHtml :: FilePath -> String -> [JSSource] -> String -> H.Html
6563createHtml libLoc title scripts noscript =
6664 H.docTypeHtml $ do
6765 H.head $ do