blob: 96e0ad469f62f14ced4961ef7b03d54dcd31d7bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
import Control.Applicative
import Control.Arrow
import Control.Monad
import Control.Comonad
import Data.Array
import Data.Functor
import Data.List
import Data.Monoid
import Data.Set
import Data.String
import qualified Data.Map as Map
import qualified Data.Text as Text
:set -XGADTs -XArrows -XUnicodeSyntax
:set +t
:set +m
:set prompt "\ESC[1;32mλ> \ESC[m"
:set prompt-cont "\ESC[1;32mλ| \ESC[m"
:def hoogle \s -> return $ ":! hoogle --count=15 " ++ show s
:def pf \s -> return $ ":! pointfree \"" ++ s ++ "\""
:m Text.Show.Pretty
:def! nopretty \_ -> return ":set -interactive-print System.IO.print"
:def! pretty \_ -> return ":set -interactive-print pPrint"
:pretty
|
