import Data.Maybe(fromJust)
import Data.Array
import Data.Monoid
+import Control.Monad
import qualified HpcSet as Set
------------------------------------------------------------------------------
| not (allowNesting tik0 tik')
-> addMarkup tabStop cs loc os ticks -- already marked or bool within marked bool
_ -> openTick tik0 ++ addMarkup tabStop cs loc (addTo (t2,tik0) os) ticks
- where
+ where
addTo (t,tik) [] = [(t,tik)]
addTo (t,tik) ((t',tik'):xs) | t <= t' = (t,tik):(t',tik'):xs
#if __GLASGOW_HASKELL__ >= 604
-- create the dest_dir if needed
- createDirectoryIfMissing True dest_dir
+ when (not (null dest_dir)) $
+ createDirectoryIfMissing True dest_dir
#endif
writeFile filename text