Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions Graphics/PDF/Draw.hs
Original file line number Diff line number Diff line change
Expand Up @@ -95,6 +95,7 @@ import qualified Data.ByteString.Lazy as B
import Control.Monad.ST
import Data.STRef

import Control.Monad.Fail
import Control.Monad.Writer.Class
import Control.Monad.Reader.Class
import Control.Monad.State
Expand Down Expand Up @@ -212,6 +213,9 @@ instance Functor Draw where

instance MonadPath Draw

instance MonadFail Draw where
fail err = error "Draw monad failed"

readDrawST :: (forall s. DrawTuple s -> STRef s a) -> Draw a
readDrawST f = Draw $ \env -> readSTRef (f env)

Expand Down
2 changes: 1 addition & 1 deletion HPDF.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@ extra-source-files:
Test/Makefile
Test/Penrose.hs
Test/test.hs
README.txt
README.md
NEWS.txt
TODO.txt
changelog
Expand Down
2 changes: 1 addition & 1 deletion stack.yaml
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
# For more information, see: https://github.com/commercialhaskell/stack/blob/release/doc/yaml_configuration.md

# Specifies the GHC version and set of packages available (e.g., lts-3.5, nightly-2015-09-21, ghc-7.10.2)
resolver: lts-6.14
resolver: lts-14.13

# Local packages, usually specified by relative directory name
packages:
Expand Down