Skip to content
Browse files

Fix non-exhaustive patterns with GHC 6.10.1.

  • Loading branch information...
1 parent 32005c0 commit bccda813e80a04c0a585a9e60d8159473ffb3103 @nominolo nominolo committed
Showing with 8 additions and 0 deletions.
  1. +3 −0 scion.cabal
  2. +5 −0 src/Scion/Inspect/TypeOf.hs
View
3 scion.cabal
@@ -56,6 +56,9 @@ library
if impl(ghc >= 6.11.20081113) || impl(ghc == 6.10.* && >= 6.10.2)
cpp-options: -DRECOMPILE_BUG_FIXED
+ if impl(ghc == 6.10.*)
+ cpp-options: -DWPINLINE
+
if flag(emacs)
build-depends: network >= 2.1 && < 2.3,
network-bytestring == 0.1.*,
View
5 src/Scion/Inspect/TypeOf.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
-- |
-- Module : Scion.Inspect.TypeOf
-- Copyright : (c) Thomas Schilling 2008
@@ -35,6 +36,10 @@ typeOf (leaf, path) = case leaf of
-- do something else with coercion/dict vars?
unwrap (WpApp v) t = AppTy t (TyVarTy v)
unwrap (WpLam v) t = ForAllTy v t
+ unwrap (WpLet _bs) t = t
+#ifdef WPINLINE
+ unwrap WpInline t = t
+#endif
-- | Reduce a top-level type application if possible. That is, we perform the
-- following simplification step:

0 comments on commit bccda81

Please sign in to comment.
Something went wrong with that request. Please try again.