diff --git a/src/TaskMachine/UI/Behaviors.hs b/src/TaskMachine/UI/Behaviors.hs
index a8358e3..5a76d7a 100644
--- a/src/TaskMachine/UI/Behaviors.hs
+++ b/src/TaskMachine/UI/Behaviors.hs
@@ -44,6 +44,10 @@ taskEditBehavior edit s e = do
   B.continue s{taskEdit=Just newEdit}
 
 taskListBehavior :: UIState -> VTY.Event -> NewState
+-- Reload while running
+taskListBehavior s (VTY.EvKey (VTY.KChar 'r') []) = do
+  newState <- liftIO $ loadTasks s
+  B.continue newState
 -- Mark/unmark a task as completed
 taskListBehavior s (VTY.EvKey (VTY.KChar 'x') []) = undefined s
 -- Delete tasks