:def hoogle \x -> return $ ":!hoogle \""        ++ x ++ "\""
:def doc    \x -> return $ ":!hoogle --info \"" ++ x ++ "\""
:def hg     \x -> return $ ":!hoogle \""        ++ x ++ "\""
:set +t +s
-- :set prompt "ghci> "
-- :set prompt "\ESC[34mλ> \ESC[m"
:set prompt "\ESC[1;34m%s\n\ESC[0;34mλ> \ESC[m"