ghci splash screen

How do I bring back the fancy
  ____ _   _  ____ _
 / ___| | | |/ ___(_)
| |  _| |_| | |   | |
| |_| |  _  | |___| |
 \____|_| |_|\____|_|

in ghc 6.8?

http://www.mail-archive.com/cvs-ghc@haskell.org/msg02121.html

Just imagine there is the old fancy banner.

~/.ghci:
:set prompt "ghci> "
putStrLn "'-._                  ___.....___"
putStrLn "    `.__           ,-'        ,-.`-,            HAVE YOU READ"
putStrLn "        `''-------'          ( p )  `._       YOUR SICP TODAY?"
putStrLn "                              `-'      \\"
putStrLn "                                        \\"
putStrLn "                              .         \\"
putStrLn "                               \\---..,--'"
putStrLn "   ................._           --...--,"
putStrLn "                     `-.._         _.-'"
putStrLn "                          `'-----''                         Read SICP for help."

>>4
I'd like to introduce you to \n.

>>4
putStrLn

>>6
To reduce the number of function calls, I meant.

>>7
Because a smart compiler wouldnt optimize out consecutive function calls like that! Thanks GHCi.

OH SHIT HAVING TO WAIT AN EXTRA 0.00001 SECONDS TO START GHCI WHAT HAS THIS WORLD FUCKING COME TO

>>9
that's 0.00001 seconds too many

>>8
I prefer not writing shit code in the first place to trusting the compiler to fix shit code. Especially since >>4 was considerably longer than the alternative would have been.

It's going to be less than a microsecond longer (in other words: you won't be able to tell).  New programmers that think micro-optimization is "skill" make me laugh, especially when it will probably be compiled out anyways.

putStrLn "'-._                  ___.....___" ++
         "    `.__           ,-'        ,-.`-,            HAVE YOU READ" ++
         "        `''-------'          ( p )  `._       YOUR SICP TODAY?" ++
         "                              `-'      \\" ++
         "                                        \\" ++
         "                              .         \\" ++
         "                               \\---..,--'" ++
         "   ................._           --...--," ++
         "                     `-.._         _.-'" ++
         "                          `'-----''                         Read SICP for help."

>>13
Yeah, now it's just broken.

>>14
$
>>13


    putStrLn "'-._                  ___.....___\
             \    `.__           ,-'        ,-.`-,            HAVE YOU READ\
             \        `''-------'          ( p )  `._       YOUR SICP TODAY?\
             \                              `-'      \\\
             \                                        \\\
             \                              .         \\\
             \                               \\---..,--'\
             \   ................._           --...--,\
             \                     `-.._         _.-'\
             \                          `'-----''                         Read SICP for help."

>>15
Sorry, i meant
    putStrLn "'-._                  ___.....___\
             \    `.__           ,-'        ,-.`-,            HAVE YOU READ\
             \        `''-------'          ( p )  `._       YOUR SICP TODAY?\
             \                              `-'      \\\
             \                                        \\\
             \                              .         \\\
             \                               \\---..,--'\
             \   ................._           --...--,\
             \                     `-.._         _.-'\
             \                          `'-----''                         Read SICP for help."

putStrLn $ unlines ["'-._                  ___.....___","    `.__           ,-'        ,-.`-,            HAVE YOU READ", "        `''-------'          ( p )  `._       YOUR SICP TODAY?", "                              `-'      \\", "                                        \\", "                              .         \\", "                               \\---..,--'", "   ................._           --...--,", "                     `-.._         _.-'", "                          `'-----''                         Read SICP for help."]

print """\
'-._                  ___.....___
    `.__           ,-'        ,-.`-,            HAVE YOU READ
        `''-------'          ( p )  `._       YOUR SICP TODAY?
                              `-'      \\
                                        \\
                              .         \\
                               \\---..,--'
   ................._           --...--,
                     `-.._         _.-'
                          `'-----''                        Read SICP for help."""

Here he comes, here comes speedracer,
HE'S A DEMON ON WHEELS

Here he comes, here comes speedracer,
HE'S A DEMON ON WHEELS

Here he comes, here comes speedracer,
HE'S A DEMON ON WHEELS

<-- check em dubz

you better be