diff --git a/src/Dodge/Terminal/Type.hs b/src/Dodge/Terminal/Type.hs
index 7cf966432..0e3169f38 100644
--- a/src/Dodge/Terminal/Type.hs
+++ b/src/Dodge/Terminal/Type.hs
@@ -4,4 +4,4 @@ getPromptTM :: String
 getPromptTM = "> "
 
 getMaxLinesTM :: Int
-getMaxLinesTM = 14
+getMaxLinesTM = 13