jm/literati — pull request #1 by maxpow4h (2012-11-02 05:18:37+00:00)
Title: Fixed comments inside bird tracks

The `>-- ` didn't work properly. They work in GHC.

Otherwise sweet library, look forward to using it. :+1:

> {-# LANGUAGE GADTs #-}

> module Main where

-- this isn't a comment at all

> import qualified Data.Map as M
> -- import Data.Maybe this is a comment
>-- import Data.Maybe this is more comments
> import Control.Applicative

who should we call

> callMe :: String -> Maybe String
> callMe "me" = Just "called me!"
> callMe _ = Nothing

> main :: IO ()
> main = do
> putStrLn "Hey, I just met you, and this is crazy,"
> x <- putStrLn "but here's my number:" >> getLine
>-- ghc lets you do comments like this in lhs
> putStrLn $ show $ callMe x <|> Just "No call for you :("