Merge pull request #69 from purescript-contrib/newtype-instances

Update some newtype instances

Author: garyb

src/DOM/Event/Types.purs

@@ -39,6 +39,7 @@ import Prelude
 import Data.Either (Either(..))
 import Data.Foreign (F, Foreign, unsafeReadTagged)
 import Data.Foreign.Class (class IsForeign)
+import Data.Newtype (class Newtype)
 import Unsafe.Coerce as U
 
 -- | Basic type for all DOM events.
@@ -47,8 +48,9 @@ foreign import data Event :: *
 -- | The type of strings used for event types.
 newtype EventType = EventType String
 
-derive instance eqEventType :: Eq EventType
-derive instance ordEventType :: Ord EventType
+derive instance newtypeEventType :: Newtype EventType _
+derive newtype instance eqEventType :: Eq EventType
+derive newtype instance ordEventType :: Ord EventType
 
 -- | A DOM item that can emit events.
 foreign import data EventTarget :: *

src/DOM/Node/Types.purs

@@ -1,6 +1,8 @@
 -- http://www.w3.org/TR/dom
 module DOM.Node.Types where
 
+import Prelude
+import Data.Newtype (class Newtype)
 import DOM.Event.Types (EventTarget)
 import Unsafe.Coerce (unsafeCoerce)
 
@@ -32,6 +34,10 @@ foreign import data Element :: *
 
 newtype ElementId = ElementId String
 
+derive instance newtypeElementId :: Newtype ElementId _
+derive newtype instance eqElementId :: Eq ElementId
+derive newtype instance oOrdElementId :: Ord ElementId
+
 elementToParentNode :: Element -> ParentNode
 elementToParentNode = unsafeCoerce