Skip to content

Commit e1212ae

Browse files
committed
[RSC-218] Fix tests compilation
1 parent 375da5b commit e1212ae

File tree

1 file changed

+2
-3
lines changed

1 file changed

+2
-3
lines changed

test/Test/RSCoin/Full/Initialization.hs

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -25,8 +25,8 @@ import Test.QuickCheck (NonEmptyList (..))
2525

2626
import Control.TimeWarp.Logging (LoggerName (..), modifyLoggerName,
2727
setLoggerName)
28-
import Control.TimeWarp.Timed (Second, for, ms, sec, wait,
29-
workWhileMVarEmpty', interval)
28+
import Control.TimeWarp.Timed (Second, for, interval, ms, sec,
29+
wait, workWhileMVarEmpty')
3030
import qualified RSCoin.Bank as B
3131
import RSCoin.Core (Color (..), Mintette (..),
3232
SecretKey, WithNamedLogger,
@@ -122,7 +122,6 @@ runBank forkTmp b =
122122
forkTmp $
123123
modifyLoggerName (<> "explorer-worker") $
124124
B.runExplorerWorker
125-
periodDelta
126125
mainIsBusy
127126
(b ^. secretKey)
128127
(b ^. state)

0 commit comments

Comments
 (0)