ebook-manager/src/Main.hs

module Main where

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

defaultMain :: IO ()
defaultMain = run 8080 (server App)

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)`
Custom monad 2018-08-02 22:32:23 +03:00			`import Types`
Something resembling of a front page 2018-08-02 22:11:11 +03:00
Initial commit 2018-08-02 21:39:08 +03:00			`defaultMain :: IO ()`
Custom monad 2018-08-02 22:32:23 +03:00			`defaultMain = run 8080 (server App)`
Initial commit 2018-08-02 21:39:08 +03:00
			`main :: IO ()`
			`main = defaultMain`