wasp/waspc/cli/Command/Clean.hs

module Command.Clean
    ( clean
    ) where

import System.Directory (doesDirectoryExist, removeDirectoryRecursive)
import System.IO (hFlush, stdout)
import Control.Monad.IO.Class (liftIO)

import qualified StrongPath as SP
import Command (Command)
import Command.Common (findWaspProjectRootDirFromCwd)
import qualified Common

clean :: Command ()
clean = do
    waspProjectDir <- findWaspProjectRootDirFromCwd
    let dotWaspDirFp = SP.toFilePath $ waspProjectDir SP.</> Common.dotWaspDirInWaspProjectDir
    liftIO $ putStrLn "Deleting .wasp/ directory..." >> hFlush stdout
    doesDotWaspDirExist <- liftIO $ doesDirectoryExist dotWaspDirFp
    if doesDotWaspDirExist
        then liftIO $ do removeDirectoryRecursive dotWaspDirFp
                         putStrLn "Deleted .wasp/ directory."
        else liftIO $ putStrLn "Nothing to delete: .wasp directory does not exist."