test-framework-th-prime 0.0.4 → 0.0.5

raw patch · 2 files changed

+15/−4 lines, 2 files

Files

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

@@ -54,12 +54,23 @@ parseTest :: FilePath -> IO (ParseResult Module) parseTest file = do     raw <- readFile file-    parseModuleWithMode opt . pack <$> go raw+    parseModuleWithMode (opt raw) . pack <$> go raw   where     pack = unlines . tail . map snd     go = cppIfdef "dummy" [] [] defaultBoolOptions-    opt = defaultParseMode {-        extensions = [TemplateHaskell]+    exts raw =+      case getTopPragmas raw of+        ParseOk pragmas ->+          [ toExtention name+          | LanguagePragma _ names <- pragmas, name <- names]+        ParseFailed _ _ ->+          []+      where+        toExtention = read . toStr+        toStr (Ident str) = str+        toStr (Symbol str) = str+    opt raw = defaultParseMode {+        extensions = nub $ TemplateHaskell : exts raw       -- to prevent "Ambiguous infix expression"       , fixities = Nothing       }

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