Further speedup - currying was broken; bump to 1.0.5

jkff · Jan 19, 2012 · 4a9e11a · 4a9e11a
1 parent 84bdafd
commit 4a9e11a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/Data/Time/Parse.hsc b/Data/Time/Parse.hsc
@@ -66,10 +66,10 @@ class Strptime_ a where
     strptime_ :: a -> a -> Maybe (LocalTime, Int)
 
 instance Strptime_ [Char] where
-    strptime_ f s = strptime_ (S.pack f) (S.pack s)
+    strptime_ f = let pf = S.pack f in \s -> strptime_ pf (S.pack s)
 
 instance Strptime_ L.ByteString where
-    strptime_ f s = strptime_ (S.concat . L.toChunks $ f) (S.concat . L.toChunks $ s)
+    strptime_ f = let pf = S.concat (L.toChunks f) in \s -> strptime_ pf (S.concat . L.toChunks $ s)
 
 instance Strptime_ S.ByteString where
     strptime_ f = U.unsafePerformIO $ do

diff --git a/strptime.cabal b/strptime.cabal
@@ -1,6 +1,6 @@
 Name: strptime
 Category: System, Data, Parsing
-Version: 1.0.4
+Version: 1.0.5
 Cabal-version: >= 1.2
 Build-type: Simple
 Copyright: Eugene Kirpichov