web: fix --file-url option (#285)

Finish the rename begun by 3fb5e25.

hledger-web/Hledger/Web/Main.hs

@@ -69,13 +69,13 @@ web opts j = do
   let j' = filterJournalTransactions (queryFromOpts d $ reportopts_ $ cliopts_ opts) j
       p = port_ opts
       u = base_url_ opts
-      staticRoot' = pack <$> static_root_ opts
+      staticRoot = pack <$> file_url_ opts
   _ <- printf "Starting web app on port %d with base url %s\n" p u
   app <- makeApplication opts j' AppConfig{appEnv = Development
                                           ,appPort = p
                                           ,appRoot = pack u
                                           ,appHost = fromString "*4"
-                                          ,appExtra = Extra "" Nothing staticRoot'
+                                          ,appExtra = Extra "" Nothing staticRoot
                                           }
   if server_ opts
    then do

hledger-web/Hledger/Web/WebOptions.hs

@@ -50,9 +50,9 @@ webmode =  (mode "hledger-web" [("command","web")]
 -- hledger-web options, used in hledger-web and above
 data WebOpts = WebOpts {
      server_   :: Bool
-    ,base_url_ :: String
     ,port_     :: Int
-    ,static_root_ :: Maybe String
+    ,base_url_ :: String
+    ,file_url_ :: Maybe String
     ,cliopts_  :: CliOpts
  } deriving (Show)
 
@@ -74,7 +74,7 @@ rawOptsToWebOpts rawopts = checkWebOpts <$> do
               port_ = p
              ,server_ = boolopt "server" rawopts
              ,base_url_ = maybe (defbaseurl p) stripTrailingSlash $ maybestringopt "base-url" rawopts
-             ,static_root_ = stripTrailingSlash <$> maybestringopt "static-root" rawopts
+             ,file_url_ = stripTrailingSlash <$> maybestringopt "file-url" rawopts
              ,cliopts_   = cliopts
              }
   where