git.iko.soy/elk
on master help sign in
Depend on Elm.Utils version of (|>)
bc9b539Evan Czaplicki
compiler/Generate/Markdown.hs+1−3
compare with master
unifiedsplit
@@ -6,11 +6,9 @@ import qualified Cheapskate.Html as CS
6import qualified Data.Text as Text
6import qualified Data.Text as Text
7import qualified Text.Blaze.Html.Renderer.String as Blaze
7import qualified Text.Blaze.Html.Renderer.String as Blaze
8import qualified Text.Highlighting.Kate as Kate
8import qualified Text.Highlighting.Kate as Kate
9+import Elm.Utils ((|>))
9
10
10
11
11−(|>) :: a -> (a -> b) -> b
12−x |> f = f x
13−
14toHtml :: String -> String
12toHtml :: String -> String
15toHtml rawMarkdown =
13toHtml rawMarkdown =
16 Text.pack rawMarkdown
14 Text.pack rawMarkdown