hxournal 0.6.6 → 0.6.6.1

raw patch · 2 files changed

+10/−3 lines, 2 files

Files

• hxournal.cabal +1/−1
• lib/Application/HXournal/Type/PageArrangement.hs +9/−2

@@ -1,5 +1,5 @@ Name:		hxournal-Version:	0.6.6+Version:	0.6.6.1 Synopsis:	A pen notetaking program written in haskell  Description: 	notetaking program written in haskell and gtk2hs Homepage:       http://ianwookim.org/hxournal

@@ -213,8 +213,10 @@ canvasDimension :: PageArrangement a :-> CanvasDimension  canvasDimension = lens getter setter    where +    getter :: PageArrangement a -> CanvasDimension     getter (SingleArrangement cdim _ _) = cdim     getter (ContinuousSingleArrangement cdim _ _ _) = cdim+    setter :: CanvasDimension -> PageArrangement a -> PageArrangement a     setter cdim (SingleArrangement _ pdim vbbox) = SingleArrangement cdim pdim vbbox     setter cdim (ContinuousSingleArrangement _ ddim pfunc vbbox) =        ContinuousSingleArrangement cdim ddim pfunc vbbox@@ -223,16 +225,21 @@ viewPortBBox :: PageArrangement a :-> ViewPortBBox  viewPortBBox = lens getter setter    where +    getter :: PageArrangement a -> ViewPortBBox     getter (SingleArrangement _ _ vbbox) = vbbox      getter (ContinuousSingleArrangement _ _ _ vbbox) = vbbox +    setter :: ViewPortBBox -> PageArrangement a -> PageArrangement a     setter vbbox (SingleArrangement cdim pdim _) = SingleArrangement cdim pdim vbbox      setter vbbox (ContinuousSingleArrangement cdim ddim pfunc _) =        ContinuousSingleArrangement cdim ddim pfunc vbbox  desktopDimension :: PageArrangement a :-> DesktopDimension  desktopDimension = lens getter (error "setter for desktopDimension is not defined")-  where getter (SingleArrangement _ (PageDimension dim) _) = DesktopDimension dim-        getter (ContinuousSingleArrangement _ ddim _ _) = ddim +  where +    getter :: PageArrangement a -> DesktopDimension+    getter (SingleArrangement _ (PageDimension dim) _) = DesktopDimension dim+    getter (ContinuousSingleArrangement _ ddim _ _) = ddim +