test-framework-th-prime 0.0.2 → 0.0.3

raw patch · 2 files changed

+5/−3 lines, 2 files

Files

• Test/Framework/TH/Prime/Parser.hs +4/−2
• test-framework-th-prime.cabal +1/−1

@@ -71,9 +71,11 @@ isPatBind _                   = False  fromPatBind :: Decl -> String-fromPatBind (PatBind _ (PVar (Ident name)) _ _ _) = name+fromPatBind (PatBind _ (PVar (Ident  name)) _ _ _) = name+fromPatBind (PatBind _ (PVar (Symbol name)) _ _ _) = name fromPatBind _ = error "fromPatBind"  fromFunBind :: Decl -> String-fromFunBind (FunBind (Match _ (Ident name) _ _ _ _:_)) = name+fromFunBind (FunBind (Match _ (Ident  name) _ _ _ _:_)) = name+fromFunBind (FunBind (Match _ (Symbol name) _ _ _ _:_)) = name fromFunBind _ = error "fromFunBind"

@@ -1,5 +1,5 @@ Name:                   test-framework-th-prime-Version:                0.0.2+Version:                0.0.3 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3