libraries/base/tests/fromJust.hs


1
2
3
4
5
6
7
8
9
10

module Main where

-- Trac #15559: Add HasCallStack to fromJust

import Data.Maybe ( fromJust )

main :: IO ()
main = do
  _ <- fromJust Nothing `seq` return ()
  putStrLn "Should see a stacktrace instead of this"