From 071c38613606c0f290c527333a59e5c86ec0aafe Mon Sep 17 00:00:00 2001
From: Michael Pilosov <consistentbayes@gmail.com>
Date: Sat, 18 May 2024 20:59:44 +0000
Subject: [PATCH] cleanup

---
 README.md           | 2 +-
 src/AcceptReject.hs | 1 -
 src/RandomUtils.hs  | 1 -
 3 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/README.md b/README.md
index 90ddafb..1b303e3 100644
--- a/README.md
+++ b/README.md
@@ -5,7 +5,7 @@
 Install the Haskell build tool `stack` and ensure `~/.local/bin` is in your `$PATH`
 
 ```
-curl -sSL https://get.haskellstack.org/ | sh
+curl -sSL https://get.haskellstack.org | sh -s - -d ~/.local/bin
 ```
 
 Run the demo:
diff --git a/src/AcceptReject.hs b/src/AcceptReject.hs
index 7527739..719a701 100644
--- a/src/AcceptReject.hs
+++ b/src/AcceptReject.hs
@@ -30,4 +30,3 @@ main = do
     normalPointsAR <- generateNormalPointsAR 10 0 1
     putStrLn "Normal distribution points (Acceptance-Rejection):"
     print normalPointsAR
-
diff --git a/src/RandomUtils.hs b/src/RandomUtils.hs
index 0ab5924..f1e68b1 100644
--- a/src/RandomUtils.hs
+++ b/src/RandomUtils.hs
@@ -22,4 +22,3 @@ boxMullerTransform mu sigma (u1:u2:us) =
         z1 = sqrt (-2 * log u1) * sin (2 * pi * u2)
     in (mu + z0 * sigma) : (mu + z1 * sigma) : boxMullerTransform mu sigma us
 boxMullerTransform _ _ _ = []  -- If input list is not in pairs, return empty list
-