mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 10:03:22 +03:00
9 lines
218 B
Haskell
9 lines
218 B
Haskell
module Commands.Clean where
|
|
|
|
import Commands.Base
|
|
|
|
runCommand :: (Members '[Files, App] r) => Sem r ()
|
|
runCommand = do
|
|
buildDir <- askBuildDir
|
|
whenM (directoryExists' buildDir) (removeDirectoryRecursive' buildDir)
|