HintMismatch.hs

{-@ LIQUID "--expect-error-containing=HINT: Use the hole" @-}

{-# LANGUAGE DataKinds #-}

module HintMismatch where

newtype Offset struct member = Offset { unOffset :: Int }

type OffsetN t = Offset (t 'Nothing)

foo = Nothing 

{-@ bar :: t 'Nothing @-}
bar :: t 'Nothing
bar = undefined