Create empty dump files when there was nothing to dump
[ghc.git] / testsuite / tests / driver / T9938.hs
1 module Main where
2
3 import Control.Monad
4 import Control.Monad.Trans.State
5
6 solve :: Int -> StateT () [] ()
7 solve carry | carry > 0 =
8 do guard (0 == carry)
9 solve (carry -1)
10 solve 0 = mzero
11
12 main :: IO ()
13 main = return ()