summaryrefslogtreecommitdiff
path: root/testsuite/tests/typecheck/should_fail/TcMultiWayIfFail.hs
blob: 7403d74139a1294359bc09d4255c21ac886f9cf8 (plain)
1
2
3
4
5
6
7
8
{-# LANGUAGE MultiWayIf #-}

module TcMultiWayIfFail where

x1 = if | True      -> 1 :: Int
        | False     -> "2"
        | otherwise -> [3 :: Int]