Tissevert/Hufflepdf
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Lift unused restriction on MonadFail for AllObjects instance of Box Layer

Browse source
This commit is contained in:
Tissevert 2020-02-24 21:36:31 +01:00
parent 83a63d4b02
commit 67faa06ea2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/PDF/Layer.hs
View file

@ -55,7 +55,7 @@ instance Output Layer where
data AllObjects = AllObjects data AllObjects = AllObjects
instance MonadFail m => Box m AllObjects Layer (Map ObjectId Object) where instance Monad m => Box m AllObjects Layer (Map ObjectId Object) where
r AllObjects = return . objects r AllObjects = return . objects
w AllObjects layer@(Layer {occurrences, docStructure}) newObjects = w AllObjects layer@(Layer {occurrences, docStructure}) newObjects =
return $ layer { return $ layer {