Plaster
New
List
Login
haskell
default
ukari
2020.09.10 07:27:28
import qualified Graphics.X11.Xlib as Xlib import Vulkan hiding (allocate) import Foreign.Ptr (Ptr, WordPtr (..), wordPtrToPtr, castPtr) castDisplay :: Xlib.Display -> Ptr Display castDisplay dpy = wordPtrToPtr $ WordPtr (read ((words $ show dpy) !! 1) :: Word) -- with castPtr castDisplay2 :: Xlib.Display -> Ptr Display castDisplay2 (Xlib.Display dpy) = castPtr dpy
Raw
Annotate
Repaste