From 8b9ec04c25e2ddf34c9e0b925fb4283f40f54468 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 20 Jan 2021 10:16:19 -0500
Subject: Load Alpha in ghci startup and add pronunciations

---
 .ghci | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to '.ghci')

diff --git a/.ghci b/.ghci
index f03d43b..a0784b6 100644
--- a/.ghci
+++ b/.ghci
@@ -1,11 +1,13 @@
 :set -XOverloadedStrings
+:set -XNoImplictPrelude
 :set prompt "   λ "
 :set prompt-cont "   | "
 :set -Wall
 :set -haddock
+:load Alpha
 -- ':iq Module M' -> 'import qualified Module as M'
-:def iq (\arg -> let [x, y] = Prelude.words arg in return $ "import qualified " ++ x ++ " as " ++ y)
-:def hoogle \s -> return $ ":! hoogle search --count=15 \"" ++ s ++ "\""
-:def hdoc \s -> return $ ":! hoogle search --info \"" ++ s ++ "\""
-:def f \_ -> return $ ":! ftags \n:r"
-:def test \_ -> return $ ":main test"
+:def iq (\arg -> let [x, y] = Prelude.words arg in return <| "import qualified " ++ x ++ " as " ++ y)
+:def hoogle \s -> return <| ":! hoogle search --count=15 \"" ++ s ++ "\""
+:def hdoc \s -> return <| ":! hoogle search --info \"" ++ s ++ "\""
+:def f \_ -> return <| ":! ftags \n:r"
+:def test \_ -> return <| ":main test"
-- 
cgit v1.2.3