blob: 55c52891e7186f397cb4390b7282e2bf4745a658 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
--- lib/UI/NCurses.chs.orig 2016-08-29 01:09:37 UTC
+++ lib/UI/NCurses.chs
@@ -435,12 +435,12 @@ setColor (ColorID pair) = withWindow_ "s
-- | Add some text to the window, at the current cursor position.
drawString :: String -> Update ()
drawString str = withWindow_ "drawString" $ \win ->
- withCWString str ({# call waddwstr #} win)
+ withCWString str $ \s -> ({# call waddwstr #} win) (castPtr s)
-- | Add some text to the window, at the current cursor position.
drawText :: T.Text -> Update ()
drawText txt = withWindow_ "drawText" $ \win ->
- withCWString (T.unpack txt) ({# call waddwstr #} win)
+ withCWString (T.unpack txt) $ \s -> ({# call waddwstr #} win) (castPtr s)
drawGlyph :: Glyph -> Update ()
drawGlyph glyph = withWindow_ "drawGlyph" $ \win ->
@@ -718,7 +718,7 @@ withGlyph (Glyph char attrs) io =
let cAttrs = foldl' (\acc a -> acc .|. attrToInt a) 0 attrs in
withCWStringLen [char] $ \(cChars, cCharsLen) ->
allocaBytes {# sizeof cchar_t #} $ \pBuf -> do
- {# call hsncurses_init_cchar_t #} (CCharT pBuf) cAttrs cChars (fromIntegral cCharsLen)
+ {# call hsncurses_init_cchar_t #} (CCharT pBuf) cAttrs (castPtr cChars) (fromIntegral cCharsLen)
io (CCharT pBuf)
-- | Upper left corner
|
