Update enumeration-0.2.0.patch

patches/enumeration-0.2.0.patch

 diff --git a/src/Data/Enumeration.hs b/src/Data/Enumeration.hs
-index a498ca5..ef6a106 100644
+index a498ca5..0607db3 100644
 --- a/src/Data/Enumeration.hs
 +++ b/src/Data/Enumeration.hs
-@@ -143,7 +143,7 @@ module Data.Enumeration(
+@@ -143,9 +143,8 @@ module Data.Enumeration(
         ) where
  
  import Control.Exception
 -import Data.List
 +import qualified Data.List as L
  import Data.ArithEncode hiding (singleton)
- import Data.Typeable
+-import Data.Typeable
  
-@@ -184,7 +184,7 @@ instance Show BadPath where
+ -- | A path that uniquely identifies a value in an @Enumeration@.
+ type Path = [Integer]
+@@ -175,7 +174,6 @@ data Enumeration ty =
+ 
+ -- | An exception thrown when a 'Path' is invalid.
+ data BadPath = BadPath String
+-  deriving Typeable
+ 
+ instance Show BadPath where
+   show (BadPath "") = "Bad Path"
+@@ -184,7 +182,7 @@ instance Show BadPath where
  instance Exception BadPath
  
  showPath :: Path -> String
@@ -20,7 +30,7 @@ index a498ca5..ef6a106 100644
  
  -- | Create an 'Enumeration' with an empty prefix that maps a single
  -- value to and from the empty path.  Equivalent to
-@@ -247,7 +247,7 @@ fromEncodingWithPrefix prefixPath enc =
+@@ -247,7 +245,7 @@ fromEncodingWithPrefix prefixPath enc =
      toPathFunc val = [encode enc val]
      toSizedPathFunc val = [(encode enc val, size enc)]