From 20249775a88aeda38f7c08a47ee5cb361c289185 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 29 Oct 2015 12:03:05 +0100
Subject: ghci config

---
 haskell/ghci.symlink | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 haskell/ghci.symlink

(limited to 'haskell')

diff --git a/haskell/ghci.symlink b/haskell/ghci.symlink
new file mode 100644
index 0000000..675f6c9
--- /dev/null
+++ b/haskell/ghci.symlink
@@ -0,0 +1,15 @@
+:set -v0
+:set -XNoMonomorphismRestriction
+
+import qualified IPPrint
+import qualified Language.Haskell.HsColour as HsColour
+import qualified Language.Haskell.HsColour.Colourise as HsColour
+import qualified Language.Haskell.HsColour.Output as HsColour
+
+let myColourPrefs = HsColour.defaultColourPrefs { HsColour.conid = [HsColour.Foreground HsColour.Yellow, HsColour.Bold], HsColour.conop = [HsColour.Foreground HsColour.Yellow], HsColour.string = [HsColour.Foreground HsColour.Green], HsColour.char = [HsColour.Foreground HsColour.Cyan], HsColour.number = [HsColour.Foreground HsColour.Red, HsColour.Bold], HsColour.layout = [HsColour.Foreground HsColour.White], HsColour.keyglyph = [HsColour.Foreground HsColour.White] }
+
+let myPrint = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow
+
+:set -interactive-print=myPrint
+:set prompt "λ. "
+
-- 
cgit v1.2.3