Commit 835e0607 authored by Simon Marlow's avatar Simon Marlow
Browse files

accept output after changes to dfun naming

parent f915d8cb
......@@ -32,7 +32,7 @@ class (RealFrac a, Floating a) => RealFloat a where
isIEEE :: a -> Bool
atan2 :: a -> a -> a
-- Defined in GHC.Float
instance RealFloat Double -- Defined in GHC.Float
instance RealFloat Float -- Defined in GHC.Float
instance RealFloat Double -- Defined in GHC.Float
Data.List.isPrefixOf :: (Eq a) => [a] -> [a] -> Bool
-- Defined in Data.List
......@@ -5,5 +5,5 @@ TH_exn1.hs:1:0:
Code: let
return = return
$dMonad = Language.Haskell.TH.Syntax.$f22
$dMonad = Language.Haskell.TH.Syntax.$fMonadQ
in case reverse "no" of { [] -> return (GHC.Types.[]) }
TH_exn2.hs:1:0:
Exception when trying to run compile-time code:
Prelude.tail: empty list
Code: let
>>= = (>>=)
$dMonad = Language.Haskell.TH.Syntax.$f22
return = return
....
in
do ds <- [d| |]
return (tail ds)
TH_exn2.hs:1:0:
Exception when trying to run compile-time code:
Prelude.tail: empty list
Code: let
>>= = (>>=)
$dMonad = Language.Haskell.TH.Syntax.$fMonadQ
return = return
....
in
do ds <- [d| |]
return (tail ds)
......@@ -4,7 +4,7 @@ TH_runIO.hs:12:8:
user error (hi)
Code: let
fail = fail
$dMonad = GHC.IO.$f1
$dMonad = GHC.IO.$fMonadIO
in runIO (fail "hi")
In the expression: $(runIO (fail "hi"))
In the definition of `foo': foo = $(runIO (fail "hi"))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment