blob: 4f6dadf65594a270e13a4a2d08950b1eaf8c2bb6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
{-# LANGUAGE CPP #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LANGUAGE OverloadedStrings #-}
module Hsm.Cam.Lib
( someCWrapper
) where
import Control.Monad ((>=>))
import Data.Text (pack)
import Foreign.C.String (CString, peekCString)
import Hsm.Log qualified as L
foreign export ccall logMsg :: CString -> IO ()
logMsg :: CString -> IO ()
logMsg = peekCString >=> L.logMsg ["cam", "lib"] . pack
foreign import ccall safe "Test.h some_c_wrapper"
someCWrapper :: IO ()
|
