path: root/testsuite/tests/pmcheck/should_compile/T17219.hs

{-# OPTIONS_GHC -Wincomplete-patterns #-}
{-# LANGUAGE OverloadedLists #-}

module Weird where

import Data.Sequence

f :: Seq Int -> ()
f [0] = ()