Fix mistake in demo script. Tests now pass

IntersectMBO · Dec 6, 2018 · 9b0ccdd · 9b0ccdd
1 parent 8c948e8
commit 9b0ccdd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Ouroboros/Storage/FS/Sim.hs b/src/Ouroboros/Storage/FS/Sim.hs
@@ -560,7 +560,7 @@ mockDemoScript = do
   _  <- listDirectory ["var"]
   createDirectory ["var", "tmp", "my-temp-dir"]
   createDirectoryIfMissing True ["home", "adinapoli", "test", "foo", "bar"]
-  f1 <- fmap L.sort <$> listDirectory ["var", "tmp"]
+  f1 <- L.sort <$> listDirectory ["var", "tmp"]
   hClose h1
   hClose h2
   checkThat "listDirectory [var, tmp]" ((==) (L.sort ["my-temp-dir", "foo.txt"])) f1