Permalink
Browse files

Fix another mapM_ issue

  • Loading branch information...
1 parent 9bd94c3 commit cbfa06bd717dcfeb32f30c4047182afb32cb7701 @gregorycollins gregorycollins committed Aug 30, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 test/suite/Snap/Util/FileServe/Tests.hs
View
2 test/suite/Snap/Util/FileServe/Tests.hs
@@ -137,6 +137,6 @@ testFsSingle = testCase "fileServeSingle" $ do
coverMimeMap :: (Monad m) => m ()
-coverMimeMap = mapM_ f $ Map.toList defaultMimeTypes
+coverMimeMap = Prelude.mapM_ f $ Map.toList defaultMimeTypes
where
f (!k,!v) = return $ case k `seq` v `seq` () of () -> ()

0 comments on commit cbfa06b

Please sign in to comment.