{-# OPTIONS_GHC -threaded #-}
{-# LANGUAGE FlexibleInstances #-}
module DobutokO.Sound.Effects.Delay where
import Numeric (showFFloat)
import Data.List (intersperse)
import DobutokO.Sound.Effects.Timespec
data Delay a = D [a] deriving Eq
instance Show (Delay TSpecification) where
show (D xs)
| null xs = []
| otherwise = mconcat ["delay ",mconcat . intersperse " " . map show $ xs]
type Dlay = Delay TSpecification
delay1 :: Dlay -> [TSpecification]
delay1 (D xs) = xs
showDlQ :: Dlay -> [String]
showDlQ = words . show