1 files changed, 26 insertions, 26 deletions

diff --git a/src/TextViewport/Viewport/Instance.hs b/src/TextViewport/Viewport/Instance.hs
index 3d0568e..1bafcbd 100644
--- a/src/TextViewport/Viewport/Instance.hs
+++ b/src/TextViewport/Viewport/Instance.hs
@@ -12,65 +12,65 @@ import TextViewport.Viewport.Viewport (Viewport, clampViewport, mkViewport)
 import TextViewport.Viewport.Viewport qualified as Viewport
 
 
-data ViewportInstance = ViewportInstance
+data Instance = Instance
   { viRender :: RenderState
   , viView   :: Viewport
   } deriving (Show)
 
-mkViewportInstance :: Int -> Int -> Buffer -> ViewportInstance
-mkViewportInstance width height buf =
+mkInstance :: Int -> Int -> Buffer -> Instance
+mkInstance width height buf =
   let rs = mkRenderState width buf
       vp = mkViewport width height rs
-  in ViewportInstance rs vp
+  in Instance rs vp
 
-visibleLines :: ViewportInstance -> [RenderedLine]
-visibleLines (ViewportInstance rs vp) =
+visibleLines :: Instance -> [RenderedLine]
+visibleLines (Instance rs vp) =
   take (Viewport.vpHeight vp) . drop (Viewport.vpOffset vp) . RenderedBuffer.flatten $ RenderState.rsRendered rs
 
-applyToInstance :: (Viewport -> Viewport) -> ViewportInstance -> ViewportInstance
-applyToInstance f (ViewportInstance rs vp) =
+applyToInstance :: (Viewport -> Viewport) -> Instance -> Instance
+applyToInstance f (Instance rs vp) =
   let vp' = f vp
-  in ViewportInstance rs (clampViewport rs vp')
+  in Instance rs (clampViewport rs vp')
 
-applyToInstanceRS :: (RenderState -> Viewport -> Viewport) -> ViewportInstance -> ViewportInstance
-applyToInstanceRS f (ViewportInstance rs vp) =
+applyToInstanceRS :: (RenderState -> Viewport -> Viewport) -> Instance -> Instance
+applyToInstanceRS f (Instance rs vp) =
   let vp' = f rs vp
-  in ViewportInstance rs (clampViewport rs vp')
+  in Instance rs (clampViewport rs vp')
 
-scrollByI :: Int -> ViewportInstance -> ViewportInstance
+scrollByI :: Int -> Instance -> Instance
 scrollByI delta = applyToInstance (Viewport.scrollBy delta)
 
-scrollUpI :: Int -> ViewportInstance -> ViewportInstance
+scrollUpI :: Int -> Instance -> Instance
 scrollUpI delta = applyToInstance (Viewport.scrollUp delta)
 
-scrollDownI :: Int -> ViewportInstance -> ViewportInstance
+scrollDownI :: Int -> Instance -> Instance
 scrollDownI delta = applyToInstance (Viewport.scrollDown delta)
 
-pageUpI :: ViewportInstance -> ViewportInstance
+pageUpI :: Instance -> Instance
 pageUpI = applyToInstance Viewport.pageUp
 
-pageDownI :: ViewportInstance -> ViewportInstance
+pageDownI :: Instance -> Instance
 pageDownI = applyToInstance Viewport.pageDown
 
-alignTopI :: ViewportInstance -> ViewportInstance
+alignTopI :: Instance -> Instance
 alignTopI = applyToInstance Viewport.alignTop
 
-alignBottomI :: ViewportInstance -> ViewportInstance
+alignBottomI :: Instance -> Instance
 alignBottomI = applyToInstanceRS Viewport.alignBottom
 
-modifyItemI :: Int -> (Item -> Item) -> ViewportInstance -> ViewportInstance
-modifyItemI ix f (ViewportInstance rs vp) =
+modifyItemI :: Int -> (Item -> Item) -> Instance -> Instance
+modifyItemI ix f (Instance rs vp) =
   let buf' = Buffer.modifyItem ix f (RenderState.rsBuffer rs)
       rs'  = mkRenderState (RenderState.rsWidth rs) buf'
       vp'  = clampViewport rs' vp
-  in ViewportInstance rs' vp'
+  in Instance rs' vp'
 
-lookupPositionI :: Int -> Int -> ViewportInstance -> Maybe (Int, Int)
-lookupPositionI x y (ViewportInstance rs vp) =
+lookupPositionI :: Int -> Int -> Instance -> Maybe (Int, Int)
+lookupPositionI x y (Instance rs vp) =
     lookupPosition x y vp (RenderState.rsRendered rs)
 
---debugVI :: ViewportInstance -> IO ()
---debugVI (ViewportInstance rs vp) = do
+--debugVI :: Instance -> IO ()
+--debugVI (Instance rs vp) = do
 --  putStrLn ("offset = " ++ show (Viewport.vpOffset vp))
 --  putStrLn ("height = " ++ show (Viewport.vpHeight vp))
 --  putStrLn ("lineCount = " ++ show (RenderState.rsLineCount rs))