Mark the experimental stuff in prebuild.hs
commita1b9ffee6848e9b0fd644311d3c4df4aab438190
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateTue 18 Apr 2017, 22:22 (10 years ago)
parentfd7c758
test/prebuild.hs+3
@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# LANGUAGE OverloadedStrings #-}
23{-# LANGUAGE ScopedTypeVariables #-}
34{-# LANGUAGE TypeFamilies #-}
@@ -98,7 +99,9 @@ w = do
9899 return ()
99100 return ()
100101
102+#ifdef EXPERIMENTAL_DEPENDENT_SUM_INSTANCES
101103instance {-# INCOHERENT #-} (Show (f a), Show (f b)) => ShowTag (EitherTag a b) f where
102104 showTagToShow e _ = case e of
103105 LeftTag -> id
104106 RightTag -> id
107+#endif