Lines Matching refs:MSG
13 import qualified Data.MessagePack as MSG
85 unpack :: MSG.MessagePack a => String -> Either a ErrorString
88 (Left obj) -> case MSG.fromObject (ucl_to_msgpack_object obj) of
92 ucl_to_msgpack_object :: UCLObjectHandle -> MSG.Object
96 |n==ucl_OBJECT = MSG.ObjectMap $ uclObjectToVector obj
97 |n==ucl_ARRAY = MSG.ObjectArray undefined
98 |n==ucl_INT = MSG.ObjectInt $ fromEnum $ ucl_object_toint obj
99 |n==ucl_FLOAT = MSG.ObjectDouble $ realToFrac $ ucl_object_todouble obj
100 …|n==ucl_STRING = MSG.ObjectStr $ T.pack $ unsafePerformIO $ peekCString $ ucl_object_tostring obj
101 |n==ucl_BOOLEAN = MSG.ObjectBool $ ucl_object_toboolean obj
107 uclObjectToVector :: UCLObjectHandle -> V.Vector (MSG.Object,MSG.Object)
114 getUclKey obj = MSG.ObjectStr $ T.pack $ unsafePerformIO $ peekCString $ ucl_object_key obj
116 uclArrayToVector :: UCLObjectHandle -> V.Vector MSG.Object