File: Example.hs

package info (click to toggle)
haskell-call-stack 0.4.0-3
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 76 kB
  • sloc: haskell: 168; makefile: 5
file content (21 lines) | stat: -rw-r--r-- 352 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
{-# LANGUAGE CPP, FlexibleContexts #-}

#if __GLASGOW_HASKELL__ >= 704
{-# LANGUAGE ConstraintKinds #-}
#define HasCallStack_ HasCallStack =>
#else
#define HasCallStack_
#endif

module Example where

import           Data.CallStack

test :: CallStack
test = foo

foo :: HasCallStack_ CallStack
foo = bar

bar :: HasCallStack_ CallStack
bar = callStack