1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-15 01:52:11 +03:00
juvix/app/Commands/Clean.hs

9 lines
218 B
Haskell
Raw Normal View History

module Commands.Clean where
import Commands.Base
runCommand :: (Members '[Files, App] r) => Sem r ()
runCommand = do
buildDir <- askBuildDir
whenM (directoryExists' buildDir) (removeDirectoryRecursive' buildDir)