1
1
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00

Define a getVector function for Source.

This commit is contained in:
Rob Rix 2015-12-23 23:06:38 -05:00
parent ee91b130e4
commit f89b05bb41

View File

@ -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