diff --git a/hxournal.cabal b/hxournal.cabal
--- a/hxournal.cabal
+++ b/hxournal.cabal
@@ -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
diff --git a/lib/Application/HXournal/Type/PageArrangement.hs b/lib/Application/HXournal/Type/PageArrangement.hs
--- a/lib/Application/HXournal/Type/PageArrangement.hs
+++ b/lib/Application/HXournal/Type/PageArrangement.hs
@@ -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 
+