wasp-lang/wasp
1
1
Fork 0
mirror of https://github.com/wasp-lang/wasp.git synced 2024-12-24 17:44:21 +03:00
Code Issues Projects Releases Wiki Activity

Fixed compile error from previous commit.

Browse Source
This commit is contained in:
Martin Sosic 2020-09-15 17:39:56 +02:00
parent 32bb439c53
commit 1f02809b3d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
waspc/cli/Command/Db/Migrate.hs
View File

@ -7,21 +7,22 @@ import Control.Monad.IO.Class (liftIO)
import StrongPath ((</>))
import Command (Command, CommandError(..))
import Command.Common (findWaspProjectRootFromCwd, waspSays)
import Command.Common (findWaspProjectRootDirFromCwd, waspSaysC)
import qualified Common
import qualified Generator.DbGenerator.Operations as DbOps
migrate :: String -> Command ()
migrate migrationName = do
waspRootDir <- findWaspProjectRootFromCwd
waspRootDir <- findWaspProjectRootDirFromCwd
let genProjectRootDir = waspRootDir </> Common.dotWaspDirInWaspProjectDir </>
Common.generatedCodeDirInDotWaspDir
waspSays "Saving db migration..."
waspSaysC "Saving db migration..."
migrateSaveResult <- liftIO $ DbOps.migrateSave genProjectRootDir migrationName
case migrateSaveResult of
Left migrateSaveError -> throwError $ CommandError $ "Migrate save failed: " ++ migrateSaveError
Right () -> waspSays "Migration has been successfully saved."
Right () -> waspSaysC "Migration has been successfully saved."
waspSays "All done!"
waspSaysC "All done!"