Load Alpha in ghci startup and add pronunciations

1 files changed, 7 insertions, 5 deletions

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"