File: Foo.hs

package info (click to toggle)
haskell-doctest-parallel 0.3.1.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 652 kB
  • sloc: haskell: 3,241; makefile: 6; ansic: 4
file content (16 lines) | stat: -rw-r--r-- 412 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
{-# LANGUAGE TemplateHaskell #-}
module TemplateHaskell.Foo where

import Language.Haskell.TH
import Text.Printf

-- | Report an error.
--
-- >>> :set -XTemplateHaskell
-- >>> $(logError "Something bad happened!")
-- ERROR <interactive>: Something bad happened!
logError :: String -> Q Exp
logError msg = do
  loc <- location
  let s = (printf "ERROR %s: %s" (loc_filename loc) msg) :: String
  [| putStrLn s |]