ebook-manager/src/Main.hs

module Main where

import Server (server)
import Network.Wai.Handler.Warp (run)

defaultMain :: IO ()
defaultMain = run 8080 server

main :: IO ()
main = defaultMain
Initial commit 2018-08-02 21:39:08 +03:00			`module Main where`

Something resembling of a front page 2018-08-02 22:11:11 +03:00			`import Server (server)`
			`import Network.Wai.Handler.Warp (run)`

Initial commit 2018-08-02 21:39:08 +03:00			`defaultMain :: IO ()`
Something resembling of a front page 2018-08-02 22:11:11 +03:00			`defaultMain = run 8080 server`
Initial commit 2018-08-02 21:39:08 +03:00
			`main :: IO ()`
			`main = defaultMain`