github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-23 08:27:56 +03:00
Code Issues Projects Releases Wiki Activity

Apply stylish-haskell.

Browse Source
This commit is contained in:
Rob Rix 2020-02-04 13:29:33 -05:00
parent 933f135eae
commit 924ada5744
No known key found for this signature in database
GPG Key ID: 2BE643E01DC032AE
6 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
semantic-go/src/Language/Go/Tags.hs
View File

@ -9,6 +9,7 @@ module Language.Go.Tags
) where
import AST.Element
import AST.Token
import Control.Effect.Reader
import Control.Effect.Writer
import Data.Text as Text
@ -18,7 +19,6 @@ import Source.Loc
import Source.Source as Source
import Tags.Tag
import qualified Tags.Tagging.Precise as Tags
import AST.Token
class ToTags t where
tags

2
semantic-java/src/Language/Java/Tags.hs
View File

@ -8,6 +8,7 @@ module Language.Java.Tags
( ToTags(..)
) where
import AST.Token
import Control.Effect.Reader
import Control.Effect.Writer
import GHC.Generics
@ -17,7 +18,6 @@ import Source.Range
import Source.Source as Source
import Tags.Tag
import qualified Tags.Tagging.Precise as Tags
import AST.Token
class ToTags t where
tags

2
semantic-python/src/Language/Python/Tags.hs
View File

@ -10,6 +10,7 @@ module Language.Python.Tags
) where
import AST.Element
import AST.Token
import Control.Effect.Reader
import Control.Effect.Writer
import Data.List.NonEmpty (NonEmpty (..))
@ -22,7 +23,6 @@ import Source.Range
import Source.Source as Source
import Tags.Tag
import qualified Tags.Tagging.Precise as Tags
import AST.Token
class ToTags t where
tags

14
semantic-ruby/src/Language/Ruby/Tags.hs
View File

@ -12,6 +12,8 @@ module Language.Ruby.Tags
) where
import AST.Element
import AST.Token
import qualified AST.Unmarshal as TS
import Control.Effect.Reader
import Control.Effect.State
import Control.Effect.Writer
@ -25,8 +27,6 @@ import Source.Range as Range
import Source.Source as Source
import Tags.Tag
import qualified Tags.Tagging.Precise as Tags
import AST.Token
import qualified AST.Unmarshal as TS
class ToTags t where
tags
@ -89,7 +89,7 @@ instance ToTags Rb.Class where
where
range' = case extraChildren of
Prj Rb.Superclass { ann = Loc { byteRange = Range { end }}} : _ -> Range start end
_ -> Range start (getEnd expr)
_ -> Range start (getEnd expr)
getEnd = Range.end . byteRange . TS.gann
yield name = yieldTag name Class loc range' >> gtags t
@ -106,7 +106,7 @@ instance ToTags Rb.SingletonClass where
where
range' = case extraChildren of
x : _ -> Range start (getStart x)
_ -> range
_ -> range
getStart = Range.start . byteRange . TS.gann
yield name = yieldTag name Class loc range' >> gtags t
@ -123,7 +123,7 @@ instance ToTags Rb.Module where
where
range' = case extraChildren of
x : _ -> Range start (getStart x)
_ -> Range start (getEnd expr)
_ -> Range start (getEnd expr)
getEnd = Range.end . byteRange . TS.gann
getStart = Range.start . byteRange . TS.gann
yield name = yieldTag name Module loc range' >> gtags t
@ -165,7 +165,7 @@ instance ToTags Rb.Method where
where
range' = case parameters of
Just Rb.MethodParameters { ann = Loc { byteRange = Range { end } }} -> Range start end
_ -> Range start (getEnd name)
_ -> Range start (getEnd name)
getEnd = Range.end . byteRange . TS.gann
instance ToTags Rb.SingletonMethod where
@ -177,7 +177,7 @@ instance ToTags Rb.SingletonMethod where
where
range' = case parameters of
Just Rb.MethodParameters { ann = Loc { byteRange = Range { end } }} -> Range start end
_ -> Range start (getEnd name)
_ -> Range start (getEnd name)
getEnd = Range.end . byteRange . TS.gann
instance ToTags Rb.Block where

4
semantic-tsx/src/Language/TSX/Tags.hs
View File

@ -10,6 +10,7 @@ module Language.TSX.Tags
) where
import AST.Element
import AST.Token
import Control.Effect.Reader
import Control.Effect.Writer
import Data.Foldable
@ -20,7 +21,6 @@ import Source.Loc
import Source.Source as Source
import Tags.Tag
import qualified Tags.Tagging.Precise as Tags
import AST.Token
class ToTags t where
tags
@ -110,7 +110,7 @@ instance ToTags Tsx.Module where
Prj Tsx.Identifier { text } -> yield text
-- TODO: Handle NestedIdentifiers and Strings
-- Prj Tsx.NestedIdentifier { extraChildren } -> match
_ -> gtags t
_ -> gtags t
yield text = yieldTag text Module loc byteRange >> gtags t
instance (ToTags l, ToTags r) => ToTags (l :+: r) where

4
semantic-typescript/src/Language/TypeScript/Tags.hs
View File

@ -10,6 +10,7 @@ module Language.TypeScript.Tags
) where
import AST.Element
import AST.Token
import Control.Effect.Reader
import Control.Effect.Writer
import Data.Foldable
@ -20,7 +21,6 @@ import Source.Loc
import Source.Source as Source
import Tags.Tag
import qualified Tags.Tagging.Precise as Tags
import AST.Token
class ToTags t where
tags
@ -103,7 +103,7 @@ instance ToTags Ts.Module where
Prj Ts.Identifier { text } -> yield text
-- TODO: Handle NestedIdentifiers and Strings
-- Prj Tsx.NestedIdentifier { extraChildren } -> match
_ -> gtags t
_ -> gtags t
yield text = yieldTag text Module loc byteRange >> gtags t
instance (ToTags l, ToTags r) => ToTags (l :+: r) where