18 lines
443 B
Haskell
Executable file
18 lines
443 B
Haskell
Executable file
#!/usr/bin/env stack
|
|
{- stack script
|
|
--resolver lts-11.6
|
|
--install-ghc
|
|
--package protolude
|
|
--package optparse-generic
|
|
-}
|
|
{-# LANGUAGE NoImplicitPrelude #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
import Protolude
|
|
import System.Environment (getArgs)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
arguments <- getArgs
|
|
case head arguments of
|
|
Just filename -> die ("The first argument is: " <> toS filename)
|
|
Nothing -> die "Please enter a filename"
|