From 6495b9a382f7a5d99abb0f61284883fd7b54ab0e Mon Sep 17 00:00:00 2001
From: Jonathan Daugherty <cygnus@foobox.com>
Date: Sun, 22 Jan 2017 15:36:35 -0800
Subject: [PATCH] Fix function name typo

---
 src/Graphics/Vty/Output/Interface.hs | 4 ++--
 src/Graphics/Vty/Span.hs             | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Graphics/Vty/Output/Interface.hs b/src/Graphics/Vty/Output/Interface.hs
index 8a029b88..cab83ea0 100644
--- 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
index 8f278db4..3d1cb5c0 100644
--- 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