Haskell web server from the a local directory

ServerLocalHost.hs

#!/usr/bin/env stack
-- stack runghc --resolver lts-12.4 --install-ghc --package wai-app-static --package warp

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Data.String
import Network.Wai.Application.Static (staticApp,defaultFileServerSettings)
import Network.Wai.Handler.Warp (runSettings, setPort, defaultSettings, run)
import Network.HTTP.Types (status200, status404)
import Network.Wai (responseLBS)

-- application _ respond = respond $
--   responseLBS status200 [("Content-Type", "text/plain")] "Hello World"

-- main :: IO ()  
-- main = do
--   putStrLn "listening on: http://*:8080/"
--   run 8080 application

main :: IO ()
main = do
  putStrLn "listening on: http://*:8080/"
  runSettings (setPort 8080 defaultSettings) (staticApp $ defaultFileServerSettings $ fromString ".")