mirror of
https://github.com/github/semantic.git
synced 2024-12-26 08:25:19 +03:00
Define a getVector
function for Source
.
This commit is contained in:
parent
ee91b130e4
commit
f89b05bb41
@ -3,7 +3,7 @@ module Source where
|
||||
import Range
|
||||
import qualified Data.Vector as Vector
|
||||
|
||||
newtype Source a = Source (Vector.Vector a)
|
||||
newtype Source a = Source { getVector :: Vector.Vector a }
|
||||
deriving (Eq, Show, Functor, Foldable)
|
||||
|
||||
makeSource :: [a] -> Source a
|
||||
|
Loading…
Reference in New Issue
Block a user