init-module.hs

{-# LANGUAGE GHC2021 #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE LexicalNegation #-}
{-# LANGUAGE LambdaCase, MultiWayIf #-}
{-# LANGUAGE NPlusKPatterns #-}
{-# LANGUAGE DataKinds, PolyKinds, NoStarIsType, TypeFamilyDependencies #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE OverloadedRecordDot, NoFieldSelectors, DuplicateRecordFields #-}
module Main where

import System.Environment
import InitModule

main :: IO ()
main = do
    { prog <- getProgName
    ; args <- getArgs
    ; case args of
        []   -> usage prog
        _    -> mapM_ initModule args
    }

usage :: String -> IO ()
usage prog = putStrLn $ unwords
    [ prog
    , "<module-name>"
    ]