Enabled default fixities in myDefaultParseMode

bmillwood · Jun 20, 2018 · 8bfa70a · 8bfa70a
1 parent 595d900
commit 8bfa70a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 6 deletions.
diff --git a/src/Language/Haskell/Meta/Parse.hs b/src/Language/Haskell/Meta/Parse.hs
@@ -68,14 +68,10 @@ parseDecs  = either Left (Right . toDecs) . parseHsDecls
 {-# DEPRECATED myDefaultParseMode, myDefaultExtensions
   "The provided ParseModes aren't very meaningful, use your own instead" #-}
 myDefaultParseMode :: ParseMode
-myDefaultParseMode = ParseMode
+myDefaultParseMode = defaultParseMode
   {parseFilename = []
   ,baseLanguage = Haskell2010
   ,extensions = map EnableExtension myDefaultExtensions
-  ,ignoreLinePragmas = False
-  ,ignoreLanguagePragmas = False
-  ,fixities = Nothing
-  ,ignoreFunctionArity = False
   }
 
 myDefaultExtensions :: [KnownExtension]

diff --git a/tests/Splices.hs b/tests/Splices.hs
@@ -2,7 +2,6 @@
 -- | Tests stuff mostly by just compiling correctly
 import Language.Haskell.Meta
 
-
 ----- Testing names -----
 
 -- Test that the unit constructor works
@@ -23,8 +22,11 @@ $(either error return $ parseDecs $ unlines
    ,"instance MyClass Bool where mymethod a b = (a,b)"
    ])
 
+
+
 -- Just to check that it works as intended
 main = do
+  -9 <- return $(either error return $ parseExp "-3^2") :: IO Int
   () <- unit
   [] <- return (nilp [])
   (1,2) <- return pair