rnhmjoj/interlude
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Replace star with Type

Browse Source
This commit is contained in:
rnhmjoj 2016-11-27 20:17:27 +01:00
parent b9f249a9ff
commit 9d3ec1d2ad
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Vec.hs
View File

@ -18,6 +18,7 @@
module Data.Vec where module Data.Vec where
import Relation.Equality (gcastWith) import Relation.Equality (gcastWith)
import Data.Kind (Type)
import Data.Nat import Data.Nat
import Data.Bool import Data.Bool
import Data.Char (Char) import Data.Char (Char)
@ -31,7 +32,7 @@ import qualified Data.TypeClass as T
infixr 5 :- infixr 5 :-
-- | The 'Vec' datatype -- | The 'Vec' datatype
data Vec ∷ ★ → ℕ → ★ where data Vec ∷ Type → ℕ → Type where
Nil ∷ Vec a Z -- ^ empty 'Vec', length 0 Nil ∷ Vec a Z -- ^ empty 'Vec', length 0
(:-) ∷ a → Vec a n → Vec a (S n) -- ^ "cons" operator (:-) ∷ a → Vec a n → Vec a (S n) -- ^ "cons" operator