reddit-pub/reddit_pub/app/Main.hs

module Main where

import qualified MyLib (defaultMain)
import System.Environment (getArgs)

main :: IO ()
main = do
  [path] <- getArgs
  MyLib.defaultMain path
Initial commit 2021-10-25 19:04:24 +03:00			`module Main where`

Some cleanup 2021-10-27 21:10:22 +03:00			`import qualified MyLib (defaultMain)`
Configurable path 2022-02-10 21:47:09 +02:00			`import System.Environment (getArgs)`
Initial commit 2021-10-25 19:04:24 +03:00
			`main :: IO ()`
			`main = do`
Configurable path 2022-02-10 21:47:09 +02:00			`[path] <- getArgs`
			`MyLib.defaultMain path`