blob: a4f7e1def21670937ceccc77e84bae4aea7a72b2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
import qualified Data.Text as T
import qualified Data.List as L
:seti -XOverloadedStrings
:set prompt "\ESC[0;36m\STX%s\n\ESC[0;34m\STXλ> \ESC[m\STX"
:set prompt-cont "\ESC[0;33m\STX|> \ESC[m\STX"
:{
dotGHCI_myPrint :: (Show a) => a -> IO ()
dotGHCI_myPrint a = putStrLn $ "\n\ESC[0;33m\STX" <> show a <> "\ESC[m\STX"
:}
:seti -interactive-print dotGHCI_myPrint
-- :def hoogle \s -> return $ ":! hoogle --count=15 \"" ++ s ++ "\""
:set +t
:set +m
:set +s
|
