git.iko.soy/typeable/haskell-stack-trace-plugin
on 70854be help sign in
typeable/haskell-stack-trace-plugin/example/Main.hs
41 lines 484 B history raw
1module Main where
3import Data.Maybe (fromJust)
4import GHC.Stack
6main :: IO ()
7main = print f1
9f1 :: Int
10f1 = f2
12f2 :: Int
13f2 = f3
15-- HsQualTy
16f3 :: HasCallStack => Int
17f3 = f4 0
19-- HsQualTy
20f4 :: Show a => a -> Int
21f4 _ = f5 0 0
23-- HsFunTy
24f5 :: Int -> Int -> Int
25f5 _ _ = head f6
27-- HsListTy
28f6 :: [Int]
29f6 = [fst f7]
31-- HsTupleTy
32f7 :: (Int, Int)
33f7 = (fromJust f8, fromJust f8)
35-- HsAppTy
36f8 :: Maybe Int
37f8 = Just fError
39-- HsTyVar
40fError :: Int
41fError = error "fError"