Updated tests and parser to 7.8

src/Hspec.hs

-{-# LANGUAGE QuasiQuotes, OverloadedStrings, ExtendedDefaultRules #-}
+{-# LANGUAGE QuasiQuotes, OverloadedStrings, ExtendedDefaultRules, CPP #-}
 -- Keep all the language pragmas here so it can be compiled separately.
 module Main where
 import Prelude
@@ -500,7 +500,11 @@ parseStringTests = describe "Parser" $ do
 
   it "breaks without data kinds" $
     parses "data X = 3" `like` [
+#if MIN_VERSION_ghc(7, 8, 0)
+      ParseError (Loc 1 10) "Illegal literal in type (use DataKinds to enable): 3"
+#else
       ParseError (Loc 1 10) "Illegal literal in type (use -XDataKinds to enable): 3"
+#endif
     ]
 
   it "parses statements after imports" $ do

src/IHaskell/Eval/Evaluate.hs

@@ -78,7 +78,7 @@ import Data.Version (versionBranch)
 data ErrorOccurred = Success | Failure deriving (Show, Eq)
 
 debug :: Bool
-debug = False
+debug = True
 
 ignoreTypePrefixes :: [String]
 ignoreTypePrefixes = ["GHC.Types", "GHC.Base", "GHC.Show", "System.IO",
@@ -705,6 +705,9 @@ evalCommand output (Expression expr) state = do
   let widgetExpr = printf "(IHaskell.Display.Widget (%s))" expr :: String
   isWidget <- attempt $ exprType widgetExpr
 
+  write $ "Can Display: " ++ show canRunDisplay
+  write $ "  Is Widget: " ++ show canRunDisplay
+
   if canRunDisplay
   then do
     -- Use the display. As a result, `it` is set to the output.

src/IHaskell/Eval/Parser.hs

@@ -175,8 +175,8 @@ parseCodeChunk code startLine = do
     parsers flags =
       [ (Import,        unparser parserImport)
       , (TypeSignature, unparser parserTypeSignature)
-      , (Declaration,   unparser parserDeclaration)
       , (Statement,     unparser parserStatement)
+      , (Declaration,   unparser parserDeclaration)
       ]
       where
         unparser :: Parser a -> String -> ParseOutput String