blob: 49d625ae4ba0afbc9127105f48fc3731800c9fe6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
:set -v0
:set -XNoMonomorphismRestriction
:set -Wall -fno-warn-name-shadowing -fno-warn-type-defaults
:set editor vim
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] }
:set prompt "λ. "
:def hoogle \str -> return $ ":! hoogle --count=15 \"" ++ str ++ "\""
:def pf \str -> return $ ":! pointfree \"" ++ str ++ "\""
|
