From 152d73665f6d0b7aae9ab159dfc0e93efefbe851 Mon Sep 17 00:00:00 2001
From: thepenguin <nor@acorneroftheweb.com>
Date: Wed, 26 Oct 2022 12:03:45 +0200
Subject: [PATCH] Read from file given in first argument

---
 app/Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 65ae4a0..75ad35c 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -1,4 +1,6 @@
 module Main where
 
+import System.Environment
+
 main :: IO ()
-main = putStrLn "Hello, Haskell!"
+main = putStrLn =<< readFile =<< head <$> getArgs