Fixes

pointfreeco · Mar 26, 2019 · c5d1297 · c5d1297
1 parent 4cdbd89
commit c5d1297
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 5 deletions.
diff --git a/Sources/PointFreePrelude/Concat.swift b/Sources/PointFreePrelude/Concat.swift
@@ -1,3 +1,11 @@
+import Prelude
+
+extension Monoid {
+  public static func concat(_ xs: Self...) -> Self {
+    return xs.reduce(.empty, <>)
+  }
+}
+
 public func concat<A>(_ fs: [(A) -> A]) -> (A) -> A {
   return { a in
     fs.reduce(a) { a, f in f(a) }

diff --git a/Sources/Views/Markdown.swift b/Sources/Views/Markdown.swift
@@ -3,6 +3,7 @@ import Css
 import FunctionalCss
 import Html
 import HtmlCssSupport
+import PointFreePrelude
 import Prelude
 import Styleguide
 
@@ -53,11 +54,12 @@ private let codeMarkdownStyles: Stylesheet =
 private let blockquoteMarkdownStyles: Stylesheet =
   blockquote % fontStyle(.italic)
 
-private let aMarkdownStyles: Stylesheet =
-  a % key("text-decoration", "underline")
-    <> (a & .pseudo(.link)) % color(Colors.purple150)
-    <> (a & .pseudo(.visited)) % color(Colors.purple150)
-    <> (a & .pseudo(.hover)) % color(Colors.black)
+private let aMarkdownStyles = Stylesheet.concat(
+  a % key("text-decoration", "underline"),
+  (a & .pseudo(.link)) % color(Colors.purple150),
+  (a & .pseudo(.visited)) % color(Colors.purple150),
+  (a & .pseudo(.hover)) % color(Colors.black)
+)
 
 private let hrMarkdownStyles: Stylesheet =
   hr % (