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

Always with the lints

Browse Source
This commit is contained in:
Timothy Clem 2018-09-10 17:32:58 -07:00
parent 8096bfc8f7
commit b985b15552
2 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Graph/DiffVertex.hs
View File

@ -11,12 +11,9 @@ module Data.Graph.DiffVertex
, TermAnnotation(..) , TermAnnotation(..)
) where ) where
import Prologue
import Data.Graph import Data.Graph
import Data.Graph.TermVertex import Data.Graph.TermVertex
import Data.Aeson import Data.Aeson
import Data.Range
import Data.Span
import Data.JSON.Fields import Data.JSON.Fields
import qualified Data.Text as T import qualified Data.Text as T

7
src/Language/Markdown/Syntax.hs
View File

@ -8,7 +8,6 @@ import Diffing.Algorithm
import Prologue hiding (Text) import Prologue hiding (Text)
import Proto3.Suite import Proto3.Suite
import qualified Proto3.Suite as PB import qualified Proto3.Suite as PB
import qualified Proto3.Wire.Encode as Encode
newtype Document a = Document { values :: [a] } newtype Document a = Document { values :: [a] }
deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1, Message1) deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1, Message1)
@ -118,7 +117,7 @@ data Link a = Link { linkURL :: T.Text, linkTitle :: Maybe T.Text }
deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1) deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1)
instance Message1 Link where instance Message1 Link where
liftEncodeMessage _ num Link{..} = encodeMessageField 1 linkURL <> maybe mempty (encodeMessageField 2) linkTitle liftEncodeMessage _ _ Link{..} = encodeMessageField 1 linkURL <> maybe mempty (encodeMessageField 2) linkTitle
liftDecodeMessage = undefined liftDecodeMessage = undefined
liftDotProto _ = liftDotProto _ =
[ DotProtoMessageField $ DotProtoField 1 (Prim PB.String) (Single "linkUrl") [] Nothing [ DotProtoMessageField $ DotProtoField 1 (Prim PB.String) (Single "linkUrl") [] Nothing
@ -133,7 +132,7 @@ data Image a = Image { imageURL :: T.Text, imageTitle :: Maybe T.Text }
deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1) deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1)
instance Message1 Image where instance Message1 Image where
liftEncodeMessage _ num Image{..} = encodeMessageField 1 imageURL <> maybe mempty (encodeMessageField 2) imageTitle liftEncodeMessage _ _ Image{..} = encodeMessageField 1 imageURL <> maybe mempty (encodeMessageField 2) imageTitle
liftDecodeMessage = undefined liftDecodeMessage = undefined
liftDotProto _ = liftDotProto _ =
[ DotProtoMessageField $ DotProtoField 1 (Prim PB.String) (Single "imageURL") [] Nothing [ DotProtoMessageField $ DotProtoField 1 (Prim PB.String) (Single "imageURL") [] Nothing
@ -148,7 +147,7 @@ data Code a = Code { codeLanguage :: Maybe T.Text, codeContent :: T.Text }
deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1) deriving (Eq, Ord, Show, Foldable, Traversable, Functor, Generic1, Hashable1, Diffable, ToJSONFields1, Named1)
instance Message1 Code where instance Message1 Code where
liftEncodeMessage _ num Code{..} = maybe mempty (encodeMessageField 1) codeLanguage <> encodeMessageField 2 codeContent liftEncodeMessage _ _ Code{..} = maybe mempty (encodeMessageField 1) codeLanguage <> encodeMessageField 2 codeContent
liftDecodeMessage = undefined liftDecodeMessage = undefined
liftDotProto _ = liftDotProto _ =
[ DotProtoMessageField $ DotProtoField 1 (Prim PB.String) (Single "codeLanguage") [] Nothing [ DotProtoMessageField $ DotProtoField 1 (Prim PB.String) (Single "codeLanguage") [] Nothing