git.iko.soy/elk
on master help sign in
Trim some unused dependencies
eba7e62Evan Czaplicki
compiler/Generate/Html.hs+8−10
compare with master
unifiedsplit
@@ -1,13 +1,12 @@
1{-# LANGUAGE OverloadedStrings #-}
1{-# LANGUAGE OverloadedStrings #-}
2−module Generate.Html (generateHtml,
2+module Generate.Html
3+ (generateHtml,
3− createHtml,
4+ createHtml,
4− JSStyle (..),
5+ JSStyle (..),
5− JSSource (..)
6+ JSSource (..)
6− ) where
7+ ) where
7
8
8−import Data.List (intercalate)
9import Text.Blaze (preEscapedToMarkup)
9import Text.Blaze (preEscapedToMarkup)
10−import Text.Blaze.Html (Html)
11import qualified Text.Blaze.Html5 as H
10import qualified Text.Blaze.Html5 as H
12import Text.Blaze.Html5 ((!))
11import Text.Blaze.Html5 ((!))
13import qualified Text.Blaze.Html5.Attributes as A
12import qualified Text.Blaze.Html5.Attributes as A
@@ -18,7 +17,6 @@ import qualified Data.ByteString.Lazy.Char8 as BS
18import Initialize (buildFromSource)
17import Initialize (buildFromSource)
19import Generate.JavaScript
18import Generate.JavaScript
20import Generate.Noscript
19import Generate.Noscript
21−import Metadata.Libraries as Libraries
22
20
23data JSStyle = Minified | Readable
21data JSStyle = Minified | Readable
24data JSSource = Link String | Source JSStyle String
22data JSSource = Link String | Source JSStyle String
@@ -41,7 +39,7 @@ makeScript source =
41generateHtml :: String -- ^ Location of elm-runtime.js as expected by the browser
39generateHtml :: String -- ^ Location of elm-runtime.js as expected by the browser
42 -> String -- ^ The page title
40 -> String -- ^ The page title
43 -> String -- ^ The elm source code.
41 -> String -- ^ The elm source code.
44− -> Html
42+ -> H.Html
45generateHtml libLoc title source = H.span "broken for now"
43generateHtml libLoc title source = H.span "broken for now"
46{--
44{--
47 case buildFromSource True source of
45 case buildFromSource True source of
@@ -61,7 +59,7 @@ modulesToHtml libLoc title scripts nscrpt modules =
61 where Module names _ _ _ = last modules
59 where Module names _ _ _ = last modules
62--}
60--}
63
61
64−createHtml :: FilePath -> String -> [JSSource] -> String -> Html
62+createHtml :: FilePath -> String -> [JSSource] -> String -> H.Html
65createHtml libLoc title scripts noscript =
63createHtml libLoc title scripts noscript =
66 H.docTypeHtml $ do
64 H.docTypeHtml $ do
67 H.head $ do
65 H.head $ do