[Haskell-cafe] source line annotations

[Bas van Dijk]

On 20 January 2011 10:48, Evan Laforge <qdunkan at gmail.com> wrote:
> I still like the pragma...

Maybe Template Haskell can help:


module Location where

import Language.Haskell.TH
import Data.Functor ((<$>))

loc :: Q Exp
loc = LitE . StringL . show . loc_start <$> location


{-# LANGUAGE TemplateHaskell #-}

module Main where

import Location
main = do
  putStrLn $loc
  putStrLn $loc
  putStrLn $loc


*Main> main
(7,12)
(8,12)
(9,12)

Regards,

Bas