Drezil/dear-implot.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-implot.hs.git synced 2024-11-15 01:17:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

switched MonadIO to MonadUnliftIO

Browse Source
This commit is contained in:
Nicole Dresselhaus 2022-09-24 16:19:05 +02:00
parent 2b3810f792
commit da2b394f82
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/DearImGui/Plot.hs
View File

@ -78,7 +78,7 @@ import qualified Data.Vector as V
import qualified Data.Vector.Storable as VS import qualified Data.Vector.Storable as VS
import qualified Data.Vector.Unboxed as VU import qualified Data.Vector.Unboxed as VU
plotLine :: (MonadIO m) => String -> VS.Vector Float -> VS.Vector Float -> m () plotLine :: (MonadUnliftIO m) => String -> VS.Vector Float -> VS.Vector Float -> m ()
plotLine label xs ys = liftIO $ do plotLine label xs ys = liftIO $ do
let (xsPtr, xsLen) = VS.unsafeToForeignPtr0 xs let (xsPtr, xsLen) = VS.unsafeToForeignPtr0 xs
(ysPtr, ysLen) = VS.unsafeToForeignPtr0 ys (ysPtr, ysLen) = VS.unsafeToForeignPtr0 ys
@ -89,12 +89,12 @@ plotLine label xs ys = liftIO $ do
-- CFloat = CFloat Float -> ptr-cast is no problem -- CFloat = CFloat Float -> ptr-cast is no problem
Raw.Plot.plotLine labelPtr (castPtr xsPtr') (castPtr ysPtr') (fromIntegral xsLen) Raw.Plot.plotLine labelPtr (castPtr xsPtr') (castPtr ysPtr') (fromIntegral xsLen)
withPlot :: (MonadIO m) => String -> m () -> m () withPlot :: (MonadUnliftIO m) => String -> m () -> m ()
withPlot p a = Raw.Plot.beginPlot p >>= \case withPlot p a = bracket (Raw.Plot.beginPlot p) (const Raw.Plot.endPlot) $ \case
False -> return () False -> return ()
True -> a >> Raw.Plot.endPlot True -> a
setupAxisLimits :: MonadIO m => (Double, Double) -> (Double, Double) -> Maybe Int -> m () setupAxisLimits :: MonadUnliftIO m => (Double, Double) -> (Double, Double) -> Maybe Int -> m ()
setupAxisLimits (minX, maxX) (minY, maxY) _ = liftIO $ do setupAxisLimits (minX, maxX) (minY, maxY) _ = liftIO $ do
Raw.Plot.setupAxisLimits ImAxis_X1 minX' maxX' Nothing Raw.Plot.setupAxisLimits ImAxis_X1 minX' maxX' Nothing
Raw.Plot.setupAxisLimits ImAxis_Y1 minY' maxY' Nothing Raw.Plot.setupAxisLimits ImAxis_Y1 minY' maxY' Nothing