github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00
Code Issues Projects Releases Wiki Activity

Export sourceSpan

Browse Source
This commit is contained in:
joshvera 2017-01-23 16:59:05 -05:00
parent cc4cc5efc6
commit 5ae0dbf2be
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Info.hs
View File

@ -1,5 +1,5 @@
{-# LANGUAGE DataKinds, GeneralizedNewtypeDeriving #-}
module Info (Range(..), characterRange, setCharacterRange, Category(..), category, setCategory, Cost(..), cost, setCost, SourceSpan(..), SourcePos(..), SourceSpans(..), SourceText(..), sourceText) where
module Info (Range(..), characterRange, setCharacterRange, Category(..), category, setCategory, Cost(..), cost, setCost, sourceSpan, SourceSpan(..), SourcePos(..), SourceSpans(..), SourceText(..), sourceText) where
import Data.Functor.Listable
import Data.Record
@ -30,6 +30,9 @@ setCategory = setField
cost :: HasField fields Cost => Record fields -> Cost
cost = getField
sourceSpan :: HasField fields SourceSpan => Record fields -> SourceSpan
sourceSpan = getField
sourceText :: HasField fields SourceText => Record fields -> SourceText
sourceText = getField