github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00
Code Issues Projects Releases Wiki Activity

Better error messages.

Browse Source
This commit is contained in:
Rob Rix 2015-11-26 16:21:54 -05:00
parent ac470d3fbb
commit f27f35c683
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -35,8 +35,8 @@ data TSNode = TsNode { _data :: Ptr (), offset :: TSLength }
instance Storable TSNode where
alignment n = 24
sizeOf n = 24
peek p = error "why are you reading from this"
poke p n = error "why are you writing to this"
peek p = error "Haskell code should never read TSNode values directly."
poke p n = error "Haskell code should never write TSNode values directly."
foreign import ccall "app/bridge.h ts_document_root_node_p" ts_document_root_node_p :: Ptr TSDocument -> Ptr TSNode -> IO ()
foreign import ccall "app/bridge.h ts_node_p_name" ts_node_p_name :: Ptr TSNode -> Ptr TSDocument -> IO CString