Permalink
Browse files

lts-12.7

  • Loading branch information...
mlang committed Aug 24, 2018
1 parent b16e894 commit 4b5de20f9eae51996a76b39c8d3c9a06806e2c07
Showing with 6 additions and 5 deletions.
  1. +4 −2 src/Diagrams/Backend/Braille.hs
  2. +2 −3 stack.yaml
@@ -116,7 +116,7 @@ type instance N Braille = Double
type RenderM n = ReaderT (Style V2 n) (Writer Draw)
newtype Draw = Draw (R.Drawing PixelRGBA8 (), [((Int, Int), String)])
deriving (Monoid)
deriving (Semigroup, Monoid)
tellR :: R.Drawing PixelRGBA8 () -> RenderM n ()
tellR = tell . Draw . (,mempty)
@@ -157,9 +157,11 @@ fromRTree (Node n rs) = case n of
runR :: Render Braille V2 n -> RenderM n ()
runR (R r) = r
instance Semigroup (Render Braille V2 n) where
R rd1 <> R rd2 = R (rd1 >> rd2)
instance Monoid (Render Braille V2 n) where
mempty = R $ return ()
R rd1 `mappend` R rd2 = R (rd1 >> rd2)
instance Hashable n => Hashable (Options Braille V2 n) where
hashWithSalt s (BrailleOptions sz) = s `hashWithSalt` sz
View
@@ -1,8 +1,7 @@
resolver: lts-10.10
resolver: lts-12.7
packages:
- .
# Dependency packages to be pulled from upstream that are not in the resolver.
extra-deps:
- diagrams-rasterific-1.4
extra-deps: []

0 comments on commit 4b5de20

Please sign in to comment.