liquidhaskell-0.4.0.0: tests/neg/CastedTotality.hs

module Fixme where

{-@ LIQUID "--totality" @-}

import Language.Haskell.Liquid.Prelude

main = show x
  where Just x = (Nothing :: Maybe Int)


main0 = do 
     let Just x = Nothing 
     print (x :: Int)