diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-11 13:56:32 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-01-11 13:56:32 +0100 |
| commit | dae0258a62a714fb7fd9b47473bf259eb858f9f1 (patch) | |
| tree | de6c4480cbd87ec9e8689dcdbefeee5618c8a3ef /src/Text/Hakyll.hs | |
| parent | 7a765f29a2f5dcf753e5418c96a9c40ddb9112be (diff) | |
| download | hakyll-dae0258a62a714fb7fd9b47473bf259eb858f9f1.tar.gz | |
Readability++.
Diffstat (limited to 'src/Text/Hakyll.hs')
| -rw-r--r-- | src/Text/Hakyll.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Text/Hakyll.hs b/src/Text/Hakyll.hs index d34c1c8..7c74b2e 100644 --- a/src/Text/Hakyll.hs +++ b/src/Text/Hakyll.hs @@ -28,10 +28,11 @@ build buildFunction = do putStrLn "Generating..." clean :: IO () clean = do remove' "_cache" remove' "_site" - where remove' dir = do putStrLn $ "Removing " ++ dir ++ "..." - exists <- doesDirectoryExist dir - if exists then removeDirectoryRecursive dir - else return () + where + remove' dir = do putStrLn $ "Removing " ++ dir ++ "..." + exists <- doesDirectoryExist dir + if exists then removeDirectoryRecursive dir + else return () -- | Show usage information. help :: IO () |