X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FResource%2FTree.hs;fp=Network%2FHTTP%2FLucu%2FResource%2FTree.hs;h=51c30b6908ac67e02bf178d02640f25b6489ad81;hb=5fc2e72c153ade03b16071c66a08a316295bb42a;hp=cef168cb522322e80bdbb164a68f3e2db678f3a5;hpb=f74e48fa8ff05543bca5ae40914efab5d677859f;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Resource/Tree.hs b/Network/HTTP/Lucu/Resource/Tree.hs
index cef168c..51c30b6 100644
--- a/Network/HTTP/Lucu/Resource/Tree.hs
+++ b/Network/HTTP/Lucu/Resource/Tree.hs
@@ -240,7 +240,8 @@ runResource def itr
                            ErrorCall    msg  -> Abortion InternalServerError emptyHeaders $ Just msg
                            IOException  ioE  -> Abortion InternalServerError emptyHeaders $ Just $ formatIOE ioE
                            DynException dynE -> case fromDynamic dynE of
-                                                  Just (a :: Abortion) -> a
+                                                  Just a
+                                                      -> a :: Abortion
                                                   Nothing
                                                       -> Abortion InternalServerError emptyHeaders
                                                          $ Just $ show exc