1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE FlexibleInstances #-}
-- | The style and color attributes can either be the terminal defaults. Or be equivalent to the
-- previously applied style. Or be a specific value.
data MaybeDefault v where
Default :: MaybeDefault v
KeepCurrent :: MaybeDefault v
SetTo :: forall v . ( Eq v, Show v ) => !v -> MaybeDefault v
SetTo2 :: (Eq a) => forall v . ( Eq v, Show v ) => !v -> a -> MaybeDefault v
bar :: forall v . (( Eq v, Show v ) => v -> MaybeDefault v -> a -> [a])
baz :: (Eq a) => forall v . ( Eq v, Show v ) => !v -> a -> MaybeDefault v
instance Dsp (S n) where
data (ASig (S n)) = S_A CVar
data ((KSig (S n))) = S_K CVar
data (((INum (S n)))) = S_I CVar
getSr = fst <$> ask
getKsmps = snd <$> ask
|
