github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Define a type synonym for the set of default fields.

Browse Source
This commit is contained in:
Rob Rix 2017-03-31 15:19:52 -04:00
parent f52894d2e8
commit 5ff9c1fe6a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Info.hs
View File

@ -1,6 +1,7 @@
{-# LANGUAGE ConstraintKinds, DataKinds, GeneralizedNewtypeDeriving #-}
module Info
( HasDefaultFields
( DefaultFields
, HasDefaultFields
, Range(..)
, byteRange
, setCharacterRange
@ -23,6 +24,9 @@ import Range
import SourceSpan
import Data.Aeson
-- | The default set of fields produced by our parsers.
type DefaultFields = '[ Range, Category, SourceSpan ]
-- | A type alias for HasField constraints commonly used throughout semantic-diff.
type HasDefaultFields fields = (HasField fields Category, HasField fields Range, HasField fields SourceSpan)