Update Trac ticket URLs to point to GitLab
[ghc.git] / libraries / base / tests / fromJust.hs
1 module Main where
2
3 -- #15559: Add HasCallStack to fromJust
4
5 import Data.Maybe ( fromJust )
6
7 main :: IO ()
8 main = do
9 _ <- fromJust Nothing `seq` return ()
10 putStrLn "Should see a stacktrace instead of this"