diff --git a/hledger-ui/Hledger/UI/UITypes.hs b/hledger-ui/Hledger/UI/UITypes.hs
index a71a2187f..26f12c3cc 100644
--- a/hledger-ui/Hledger/UI/UITypes.hs
+++ b/hledger-ui/Hledger/UI/UITypes.hs
@@ -41,7 +41,10 @@ data Screen =
     ,sDrawFn :: AppState -> [Widget]
     }
   | TransactionScreen {
-     tsState :: ((Integer,Transaction), [(Integer,Transaction)], AccountName)         -- ^ the (numbered) transaction we are viewing, a numbered list of transactions we can step through, and the account whose register we entered this screen from
+     tsState :: ((Integer,Transaction), [(Integer,Transaction)], AccountName)
+                -- ^ the (numbered) transaction we are currently viewing,
+                --   the list of numbered transactions we can step through,
+                --   and the account whose register we entered this screen from
     ,sInitFn :: Day -> AppState -> AppState
     ,sHandleFn :: AppState -> V.Event -> EventM (Next AppState)
     ,sDrawFn :: AppState -> [Widget]