Skip to content
This repository
Browse code

Use the latest version of either instead of setting an older upper bound

  • Loading branch information...
commit b97b879b730c8fc1449d3b93151acb14747eca06 1 parent 41acea1
Doug Beardsley authored January 28, 2013
6  snap.cabal
... ...
@@ -1,5 +1,5 @@
1 1
 name:           snap
2  
-version:        0.10.1
  2
+version:        0.11.0
3 3
 synopsis:       Top-level package for the Snap Web Framework
4 4
 description:
5 5
     This is the top-level package for the official Snap Framework libraries.
@@ -150,11 +150,11 @@ Library
150 150
     directory                 >= 1.0      && < 1.3,
151 151
     directory-tree            >= 0.10     && < 0.12,
152 152
     dlist                     >= 0.5      && < 0.6,
153  
-    either                    >= 3.0      && < 3.1,
  153
+    either                    >= 3.1      && < 3.2,
154 154
     errors                    >= 1.3      && < 1.4,
155 155
     filepath                  >= 1.1      && < 1.4,
156 156
     hashable                  >= 1.1      && < 1.3,
157  
-    heist                     >= 0.10     && < 0.11,
  157
+    heist                     >= 0.11     && < 0.12,
158 158
     lens                      >= 3.7.0.1  && < 3.9,
159 159
     logict                    >= 0.4.2    && < 0.6,
160 160
     mtl                       >  2.0      && < 2.2,
2  src/Snap/Snaplet/HeistNoClass.hs
@@ -192,7 +192,7 @@ finalLoadHook (Configuring ref) = do
192 192
     (hs,cts) <- toTextErrors $ initHeistWithCacheTag hc
193 193
     return $ Running hs cts
194 194
   where
195  
-    toTextErrors = mapEitherT (T.pack . intercalate "\n") id
  195
+    toTextErrors = bimapEitherT (T.pack . intercalate "\n") id
196 196
 finalLoadHook (Running _ _) = left "finalLoadHook called while running"
197 197
 
198 198
 

0 notes on commit b97b879

Please sign in to comment.
Something went wrong with that request. Please try again.