github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-28 17:32:05 +03:00
Code Issues Projects Releases Wiki Activity

use fromIntegral

Browse Source
This commit is contained in:
joshvera 2015-12-02 14:29:19 -05:00
parent 5bda74b2ea
commit 1dd8d93ce1
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -129,10 +129,12 @@ range :: Ptr TSNode -> IO Range
range node = do
pos <- ts_node_p_pos_chars node
size <- ts_node_p_size_chars node
return Range { start = fromEnum $ toInteger pos, end = (fromEnum $ toInteger pos) + (fromEnum $ toInteger size) }
let start = fromIntegral pos
end = start + fromIntegral size
return Range { start = start, end = end }
getLineRange :: Ptr TSNode -> IO Range
getLineRange node = do
startLine <- ts_node_p_start_point node
endLine <- ts_node_p_end_point node
return Range { start = fromEnum $ toInteger startLine, end = fromEnum $ toInteger endLine }
return Range { start = fromIntegral startLine, end = fromIntegral endLine }

2
src/Diff.hs
View File

@ -15,7 +15,7 @@ data Range = Range { start :: Int, end :: Int }
type Category = String
data Info = Info { characterRange:: Range, lineRange :: Range, categories :: (Set Category) }
data Info = Info { characterRange :: Range, lineRange :: Range, categories :: (Set Category) }
deriving (Eq, Show)
instance Categorizable Info where