Add hyperlinks to PDF/HTML documentation; closes #17342
[ghc.git] / testsuite / tests / typecheck / should_compile / T15645.hs
1 {-# LANGUAGE RebindableSyntax, OverloadedStrings #-}
2
3 module T15645 where
4
5 import Prelude hiding (fail)
6
7 foo x = do
8 Just y <- x
9 return y
10
11 newtype Text = Text String
12
13 fail :: Text -> a
14 fail (Text x) = error x
15
16 fromString :: String -> Text
17 fromString = Text