Remove defaultArgs
commitc0ab69cec9aaf9da00702fc62a8daacd4e9150f0
authorMichael Snoyman <michael@snoyman.com>
dateWed 26 Mar 2014, 14:36 (13 years ago)
parent4406848
wai-app-static/app/warp-static.hs−3
@@ -75,9 +75,6 @@ args = Args
7575 defIndex [] = ["index.html", "index.htm"]
7676 defIndex x = x
7777
78−defaultArgs :: Args
79−defaultArgs = Args "." ["index.html", "index.htm"] 3000 False False False [] "*"
80−
8178main :: IO ()
8279main = do
8380 Args {..} <- execParser $ info (helper <*> args) fullDesc