exception-hierarchy 0.1.0.8 → 0.1.0.9
raw patch · 2 files changed
+7/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
exception-hierarchy.cabal view
@@ -2,7 +2,7 @@ cabal-version: >= 1.10 name: exception-hierarchy-version: 0.1.0.8+version: 0.1.0.9 stability: Experimental author: Yoshikuni Jujo <PAF01143@nifty.ne.jp> maintainer: Yoshikuni Jujo <PAF01143@nifty.ne.jp>
src/Control/Exception/Hierarchy.hs view
@@ -65,8 +65,9 @@ where he = ec ec' = toLowerH $ nameBase ec- toEx = mkName $ ec' ++ "ToException"- fromEx = mkName $ ec' ++ "FromException"+ ec'' = maybe ec' (++ ('.' : ec')) $ nameModule ec+ toEx = mkName $ ec'' ++ "ToException"+ fromEx = mkName $ ec'' ++ "FromException" e = mkName "e" se = mkName "se" d = mkName "d"@@ -85,8 +86,9 @@ valD (varP $ mkName "fromException") (normalB $ varE fe) [] ] where ec' = toLowerH $ nameBase ec- te = mkName $ ec' ++ "ToException"- fe = mkName $ ec' ++ "FromException"+ ec'' = maybe ec' (++ ('.' : ec')) $ nameModule ec+ te = mkName $ ec'' ++ "ToException"+ fe = mkName $ ec'' ++ "FromException" toLowerH :: String -> String toLowerH (c : cs) = toLower c : cs