From 0268d3c0ca48bd9cf9df67b469218fc0e47ebce7 Mon Sep 17 00:00:00 2001
From: Miguel <m.i@gmx.at>
Date: Sun, 17 Mar 2019 19:35:51 +0100
Subject: shebang snippet

---
 snip/shebang.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100755 snip/shebang.hs

(limited to 'snip')

diff --git a/snip/shebang.hs b/snip/shebang.hs
new file mode 100755
index 0000000..ce6c2c1
--- /dev/null
+++ b/snip/shebang.hs
@@ -0,0 +1,16 @@
+#!/usr/bin/env stack
+-- stack --resolver lts-12.5 script
+{-# LANGUAGE OverloadedStrings #-}
+import qualified Data.ByteString.Lazy.Char8 as L8
+import           Network.HTTP.Simple
+
+-- https://haskell-lang.org/tutorial/stack-script
+
+main :: IO ()
+main = do
+    response <- httpLBS "http://httpbin.org/get"
+
+    putStrLn $ "The status code was: " ++
+               show (getResponseStatusCode response)
+    print $ getResponseHeader "Content-Type" response
+    L8.putStrLn $ getResponseBody response
-- 
cgit v1.2.3