14 lines
367 B
Haskell
14 lines
367 B
Haskell
|
#!/usr/bin/env stack
|
||
|
-- stack --resolver lts-11.6 script
|
||
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
{-# LANGUAGE NoImplicitPrelude #-}
|
||
|
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"
|