blob: 6053a3c71a5da5ccc13a650c2f550ab8fca16fab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# LANGUAGE LambdaCase, MagicHash, TemplateHaskell #-}
module T21115b where
import GHC.Exts (Double#, Int#)
import Language.Haskell.TH.Syntax
foo :: Double# -> Int#
foo =
$( return $ LamCaseE
[ Match (LitP $ DoublePrimL 0.0) (NormalB $ LitE $ IntPrimL 2) []
, Match (LitP $ DoublePrimL 2.0) (NormalB $ LitE $ IntPrimL 3) []
, Match WildP (NormalB $ LitE $ IntPrimL 5) []
]
)
|
