add string formatter

This commit is contained in:
o1lo01ol1o 2021-01-25 12:07:00 +00:00 committed by Ollie Charles
parent 76ea3f80ec
commit f632e99500

View File

@ -296,7 +296,7 @@ sameLine = liftIO do
text :: MonadIO m => String -> m ()
text t = liftIO do
withCString t \textPtr ->
[C.exp| void { Text($(char* textPtr)) } |]
[C.exp| void { Text("%s", $(char* textPtr)) } |]
-- | A button. Returns 'True' when clicked.