git.iko.soy/typeable/wai
on master help sign in
Remove defaultArgs
c0ab69cMichael Snoyman
wai-app-static/app/warp-static.hs−3
compare with master
unifiedsplit
@@ -75,9 +75,6 @@ args = Args
75 defIndex [] = ["index.html", "index.htm"]
75 defIndex [] = ["index.html", "index.htm"]
76 defIndex x = x
76 defIndex x = x
77
77
78−defaultArgs :: Args
79−defaultArgs = Args "." ["index.html", "index.htm"] 3000 False False False [] "*"
80−
81main :: IO ()
78main :: IO ()
82main = do
79main = do
83 Args {..} <- execParser $ info (helper <*> args) fullDesc
80 Args {..} <- execParser $ info (helper <*> args) fullDesc