Main.hs

module Main where

import Lib

data ProductionEnvironment = ProductionEnvironment

instance Environment ProductionEnvironment where
    getUserName _ = "Admin"
    getUserAge _ = 30

main :: IO ()
main = putStrLn . makeGreeting $ ProductionEnvironment