Use listener logging in all examples

Author: owickstrom

examples/Authentication.purs

@@ -1,7 +1,7 @@
 module Examples.Authentication where
 
 import Prelude
-import Hyper.Node.BasicAuth as BasicAuth
+
 import Control.IxMonad ((:>>=), (:*>))
 import Control.Monad.Aff (Aff)
 import Control.Monad.Eff (Eff)
@@ -10,7 +10,8 @@ import Data.Maybe (Maybe(Just, Nothing))
 import Data.MediaType.Common (textHTML)
 import Data.Tuple (Tuple(Tuple))
 import Hyper.Middleware.Class (getConn)
-import Hyper.Node.Server (runServer, defaultOptions)
+import Hyper.Node.BasicAuth as BasicAuth
+import Hyper.Node.Server (defaultOptionsWithLogging, runServer)
 import Hyper.Response (closeHeaders, contentType, respond, writeStatus)
 import Hyper.Status (statusOK)
 import Node.Buffer (BUFFER)
@@ -44,4 +45,4 @@ main =
       BasicAuth.withAuthentication userFromBasicAuth
       :*> BasicAuth.authenticated "Authentication Example" myProfilePage
     components = { authentication: unit }
-  in runServer defaultOptions components app
+  in runServer defaultOptionsWithLogging components app

examples/AuthenticationAndAuthorization.purs

@@ -8,8 +8,7 @@
 module Examples.AuthenticationAndAuthorization where
 
 import Prelude
-import Hyper.Node.BasicAuth as BasicAuth
-import Text.Smolder.HTML.Attributes as A
+
 import Control.IxMonad ((:>>=), (:*>))
 import Control.Monad.Aff.AVar (AVAR)
 import Control.Monad.Aff.Class (class MonadAff)
@@ -25,13 +24,15 @@ import Hyper.Authorization (authorized)
 import Hyper.Conn (Conn)
 import Hyper.Middleware (Middleware)
 import Hyper.Middleware.Class (getConn)
-import Hyper.Node.Server (defaultOptions, runServer)
+import Hyper.Node.BasicAuth as BasicAuth
+import Hyper.Node.Server (defaultOptionsWithLogging, runServer)
 import Hyper.Request (class Request, getRequestData)
 import Hyper.Response (class Response, class ResponseWritable, ResponseEnded, StatusLineOpen, closeHeaders, contentType, respond, writeStatus)
 import Hyper.Status (Status, statusNotFound, statusOK)
 import Node.Buffer (BUFFER)
 import Node.HTTP (HTTP)
 import Text.Smolder.HTML (a, h1, li, p, section, ul)
+import Text.Smolder.HTML.Attributes as A
 import Text.Smolder.Markup (Markup, text, (!))
 import Text.Smolder.Renderer.String (render)
 
@@ -209,4 +210,4 @@ main =
     components = { authentication: unit
                  , authorization: unit
                  }
-  in runServer defaultOptions components app
+  in runServer defaultOptionsWithLogging components app

examples/FileServer.purs

@@ -1,12 +1,13 @@
 module Examples.FileServer where
 
 import Prelude
+
 import Control.IxMonad ((:*>))
 import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Console (CONSOLE)
 import Data.Tuple (Tuple(Tuple))
 import Hyper.Node.FileServer (fileServer)
-import Hyper.Node.Server (defaultOptions, runServer)
+import Hyper.Node.Server (defaultOptionsWithLogging, runServer)
 import Hyper.Response (headers, respond, writeStatus)
 import Hyper.Status (statusNotFound)
 import Node.Buffer (BUFFER)
@@ -22,4 +23,4 @@ main =
       :*> headers []
       :*> respond (Tuple "<h1>Not Found</h1>" UTF8)
     app = fileServer "examples/FileServer" notFound
-  in runServer defaultOptions {} app
+  in runServer defaultOptionsWithLogging {} app