[Haskell-cafe] Re: [Haskell] ANN: haskell-src-exts 1.0.0 rc1 (aka 0.5.2)

[Sebastian Fischer]

On Jun 17, 2009, at 1:00 PM, Niklas Broberg wrote:

> Thanks a lot, very useful! I'll add that to the darcs repository if
> you don't mind. :-)

feel free!

Here is a cleaned-up and updated version that can also read from stdin:

#! /usr/bin/env runhaskell

 > import Language.Haskell.Exts
 >
 > import System            ( getArgs )
 > import System.IO         ( hGetContents, stdin )
 > import Prelude hiding    ( catch )
 > import Control.Exception ( catch, SomeException )
 >
 > main :: IO ()
 > main = do args  <- getArgs
 >           input <- hGetContents stdin
 >           mapM_ parse (args ++ lines input)
 >  where parse file = catch (parseFile file >>= check) $
 >                      \e -> putStrLn $ file ++ ": " ++ show  
(e::SomeException)
 >
 > check :: ParseResult a -> IO ()
 > check (ParseOk _)           = return ()
 > check (ParseFailed loc msg) = putStrLn err
 >  where err = srcFilename loc ++ ": " ++ msg ++ " at " ++
 >              show (srcLine loc) ++ ":" ++
 >              show (srcColumn loc)


-- 
Underestimating the novelty of the future is a time-honored tradition.
(D.G.)



-------------- next part --------------
A non-text attachment was scrubbed...
Name: PGP.sig
Type: application/pgp-signature
Size: 163 bytes
Desc: This is a digitally signed message part
Url : http://www.haskell.org/pipermail/haskell/attachments/20090617/14b6d9a4/PGP-0001.bin