improvements for final version of parcel2

server/app/Main.hs

@@ -6,6 +6,7 @@ module Main where
 import Data.Semigroup ((<>))
 import Network.Wai.Application.Static
 import Network.Wai.Handler.Warp
+import Network.Wai.Middleware.RequestLogger
 import Options.Applicative
 import System.FilePath
 import WaiAppStatic.Types
@@ -27,4 +28,4 @@ main = do
   Config {..} <- execParser $ info configP fullDesc
   putStrLn $ "Location: " ++ location
   putStrLn $ "Port: " ++ show port
-  run port . staticApp $ (defaultWebAppSettings location) {ssIndices = fromMaybe [] $ toPieces ["index.html"]}
+  run port . logStdout . staticApp $ (defaultWebAppSettings location) {ssIndices = fromMaybe [] $ toPieces ["index.html"]}