dataが苦手

今日は、有理数の計算（足し算）をしようとして、

data Yuuri  = Yu Integer Integer

YAdd::Yuuri -> Yuuri -> Yuuri
YAdd (Yu s1 b1 ) (Yu s2 b2) =  Yu (s1*b2+s2*b1) (b1*b2)

というプログラムを書いて、ghciで実行しようとしたのですが、

$ ghci yuuri.hs

Loading package base-1.0 ... linking ... done.
Compiling Main             ( yuuri.hs, interpreted )

yuuri.hs:3:0: Not in scope: data constructor `YAdd'

yuuri.hs:4:0: Not in scope: data constructor `YAdd'
Failed, modules loaded: none.
Prelude>

うーん。