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

Add Listable instances for Join These Blob

Browse Source
This commit is contained in:
joshvera 2018-07-16 17:05:56 -04:00
parent fde0553d90
commit 51d873f81e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/Data/Functor/Listable.hs
View File

@ -42,6 +42,7 @@ import Data.Range
import Data.Record
import Data.Semigroup (Semigroup(..))
import Data.Source
import Data.Blob
import Data.Span
import qualified Data.Syntax as Syntax
import qualified Data.Syntax.Literal as Literal
@ -521,6 +522,12 @@ instance Listable Pos where
instance Listable Span where
tiers = cons2 Span
instance Listable Blob where
tiers = cons3 Blob
instance Listable (Join These Blob) where
tiers = liftTiers tiers
instance Listable Source where
tiers = fromUTF8 `mapT` tiers