simple-pango-0.1.0.1: src/Foreign/Ptr/Misc.hs

{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Foreign.Ptr.Misc (pattern NullPtr) where

import Foreign.Ptr

pattern NullPtr :: Ptr a
pattern NullPtr <- ((== nullPtr) -> True) where NullPtr = nullPtr