dev:ui: cleanup

hledger-ui/Hledger/UI/UIOptions.hs

@@ -98,11 +98,12 @@ defuiopts = UIOpts
   }
 
 -- | Process a RawOpts into a UIOpts.
--- This will return a usage error if provided an invalid theme.
+-- An invalid --theme name will raise an error.
 rawOptsToUIOpts :: RawOpts -> IO UIOpts
 rawOptsToUIOpts rawopts = do
   cliopts <- set balanceaccum accum <$> rawOptsToCliOpts rawopts
-    return defuiopts {
+  return
+    defuiopts {
        uoWatch    = boolopt "watch" rawopts
       ,uoTheme    = checkTheme <$> maybestringopt "theme" rawopts
       ,uoRegister = maybestringopt "register" rawopts