support 7.8.3 (fixes #41)

JPMoresmau · Jul 11, 2014 · cfd7400 · cfd7400
1 parent f773086
commit cfd7400
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Language/Haskell/BuildWrapper/GHCStorage.hs b/src/Language/Haskell/BuildWrapper/GHCStorage.hs
@@ -323,7 +323,8 @@ dataToJSON  df env tcm=
 #endif                 
         hsBind :: HsBindLR Name Name -> IO Value
 #if __GLASGOW_HASKELL__ >= 707
-        hsBind (FunBind fid _ (MG matches _ _) _ _ _) =do
+        hsBind (FunBind fid _ mg _ _ _) =do
+                let matches = mg_alts mg
 #else
         hsBind (FunBind fid _ (MatchGroup matches _) _ _ _) =do
 #endif