Add a flag to disable rewrite rules
commitc794c61058420ae15fcc0a9adde31be2ae59b90b
authorHarendra Kumar <harendra.kumar@gmail.com>
dateSun 24 Jun 2018, 22:56 (8 years ago)
parent3ae9530
src/Streamly/Streams/StreamD.hs+2
@@ -124,10 +124,12 @@ fromStreamK m = Stream step m
124124 yieldk a r = return $ Yield a r
125125 in K.unStream m1 Nothing stop single yieldk
126126
127+#ifndef DISABLE_FUSION
127128{-# RULES "fromStreamK/toStreamK fusion"
128129 forall s. toStreamK (fromStreamK s) = s #-}
129130{-# RULES "toStreamK/fromStreamK fusion"
130131 forall s. fromStreamK (toStreamK s) = s #-}
132+#endif
131133
132134------------------------------------------------------------------------------
133135-- Construction
streamly.cabal+8
@@ -92,6 +92,11 @@ flag dev
9292 manual: True
9393 default: False
9494
95+flag no-fusion
96+ description: Disable rewrite rules
97+ manual: True
98+ default: False
99+
95100flag examples
96101 description: Build including examples
97102 manual: True
@@ -141,6 +146,9 @@ library
141146 default-language: Haskell2010
142147 ghc-options: -Wall
143148
149+ if flag(no-fusion)
150+ cpp-options: -DDISABLE_FUSION
151+
144152 if flag(diag)
145153 cpp-options: -DDIAGNOSTICS
146154