module Base where

import Music

type FretNo = Int
type StringNo = Int

type Square = (StringNo, FretNo)

type Tuning = [Pitch]

data ChordForm = ChordForm { cfname :: String, cfsquares :: (FretNo -> [Square]) }
data Chord = Chord { cname :: String,  csquares :: [Square] }