From 53c21f085ba676052b0fbb4bfa0e09b259d6a1d5 Mon Sep 17 00:00:00 2001
From: "Ying-Ruei Liang(KK)" <thumbd03803@gmail.com>
Date: Thu, 5 Sep 2019 02:37:58 +0800
Subject: [PATCH] Correct function row's implementation

---
 src/Reflex/Vty/Widget/Layout.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Reflex/Vty/Widget/Layout.hs b/src/Reflex/Vty/Widget/Layout.hs
index bba0dfd..eba5686 100644
--- a/src/Reflex/Vty/Widget/Layout.hs
+++ b/src/Reflex/Vty/Widget/Layout.hs
@@ -226,7 +226,7 @@ row
   -> VtyWidget t m a
 row child = do
   nav <- tabNavigation
-  runLayout (pure Orientation_Column) 0 nav child
+  runLayout (pure Orientation_Row) 0 nav child
 
 -- | Produces an 'Event' that navigates forward one tile when the Tab key is pressed
 -- and backward one tile when Shift+Tab is pressed.