@@ -1,17 +1,17 @@
11module Data.Unique
22 ( newUnique
33 , Unique()
4− , Uniq()
4+ , UNIQ()
55 ) where
66
77import Control.Monad.Eff
88import Prelude
99
10−foreign import data Uniq :: !
10+foreign import data UNIQ :: !
1111
1212newtype Unique = Unique String
1313
14−foreign import newUnique :: forall e. Eff (uniq :: Uniq | e) Unique
14+foreign import newUnique :: forall e. Eff (uniq :: UNIQ | e) Unique
1515
1616instance showUnique :: Show Unique where
1717 show (Unique a) = a