@@ -1,17 +1,17 @@
1module Data.Unique
1module Data.Unique
2 ( newUnique
2 ( newUnique
7import Control.Monad.Eff
7import Control.Monad.Eff
8import Prelude
8import Prelude
10−foreign import data Uniq :: !
10+foreign import data UNIQ :: !
12newtype Unique = Unique String
12newtype Unique = Unique String
14−foreign import newUnique :: forall e. Eff (uniq :: Uniq | e) Unique
14+foreign import newUnique :: forall e. Eff (uniq :: UNIQ | e) Unique
16instance showUnique :: Show Unique where
16instance showUnique :: Show Unique where
17 show (Unique a) = a
17 show (Unique a) = a