Fix function name typo

jtdaugherty · Jan 22, 2017 · 6495b9a · 6495b9a
1 parent 2ad3041
commit 6495b9a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Graphics/Vty/Output/Interface.hs b/src/Graphics/Vty/Output/Interface.hs
@@ -164,8 +164,8 @@ outputPicture dc pic = liftIO $ do
         -- Diff the previous output against the requested output.
         -- Differences are currently on a per-row basis.
         diffs :: [Bool] = case prevOutputOps as of
-            Nothing -> replicate (fromEnum $ regionHeight $ effectedRegion ops) True
-            Just previousOps -> if effectedRegion previousOps /= effectedRegion ops
+            Nothing -> replicate (fromEnum $ regionHeight $ affectedRegion ops) True
+            Just previousOps -> if affectedRegion previousOps /= affectedRegion ops
                 then replicate (displayOpsRows ops) True
                 else zipWith (/=) (Vector.toList previousOps)
                                   (Vector.toList ops)

diff --git a/src/Graphics/Vty/Span.hs b/src/Graphics/Vty/Span.hs
@@ -109,8 +109,8 @@ displayOpsColumns ops
 displayOpsRows :: DisplayOps -> Int
 displayOpsRows ops = Vector.length ops
 
-effectedRegion :: DisplayOps -> DisplayRegion
-effectedRegion ops = (displayOpsColumns ops, displayOpsRows ops)
+affectedRegion :: DisplayOps -> DisplayRegion
+affectedRegion ops = (displayOpsColumns ops, displayOpsRows ops)
 
 -- | The number of columns a SpanOps effects.
 spanOpsEffectedColumns :: SpanOps -> Int