Call it Path.

diagrams · Sep 16, 2014 · dde9d02 · dde9d02
1 parent cc232a6
commit dde9d02
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Diagrams/Path.hs b/src/Diagrams/Path.hs
@@ -102,7 +102,7 @@ newtype Path v n = Path [Located (Trail v n)]
 --   * -> * -> *
 -- we can only do Typeable1 (Path v). This is why the instance cannot be 
 -- derived.
-instance forall v. Typeable1 v => Typeable1 (Trail v) where
+instance forall v. Typeable1 v => Typeable1 (Path v) where
   typeOf1 _ = mkTyConApp (mkTyCon3 "diagrams-lib" "Diagrams.Path" "Path") [] `mkAppTy`
               typeOf1 (undefined :: v n)
 #endif