git.iko.soy/obelisk
on master help sign in
Add ob watch
commitd9589d7e3968877bf226ea98934d8adbd3600fd8 authorAli Abrar <aliabrar@gmail.com> dateSun 12 Aug 2018, 14:08 (8 years ago) parent0587d3a
2 files changed+8
compare with master
unifiedsplit
lib/command/src/Obelisk/Command.hs+3 lib/command/src/Obelisk/Command/Run.hs+5
lib/command/src/Obelisk/Command.hs+3
@@ -92,6 +92,7 @@ data ObCommand
9292 | ObCommand_Run
9393 | ObCommand_Thunk ThunkCommand
9494 | ObCommand_Repl
95+ | ObCommand_Watch
9596 | ObCommand_Upgrade (Maybe Text)
9697 | ObCommand_Internal ObInternal
9798 deriving Show
@@ -131,6 +132,7 @@ obCommand cfg = hsubparser
131132 , command "run" $ info (pure ObCommand_Run) $ progDesc "Run current project in development mode"
132133 , command "thunk" $ info (ObCommand_Thunk <$> thunkCommand) $ progDesc "Manipulate thunk directories"
133134 , command "repl" $ info (pure ObCommand_Repl) $ progDesc "Open an interactive interpreter"
135+ , command "watch" $ info (pure ObCommand_Watch) $ progDesc "Watch current project for errors and warnings"
134136 , command "upgrade" $ info (ObCommand_Upgrade <$> argument (maybeReader $ Just . Just . T.pack) (action "branch" <> metavar "GITBRANCH" <> value Nothing <> help "Git branch of obelisk to update to (defaults to the thunk's branch)")) $ progDesc "Upgrade Obelisk in the project"
135137 ])
136138 <|> subparser
@@ -399,6 +401,7 @@ ob = \case
399401 ThunkCommand_Unpack thunks -> mapM_ unpackThunk thunks
400402 ThunkCommand_Pack thunks -> forM_ thunks $ \(ThunkPackOpts dir upstream) -> packThunk dir (T.pack upstream)
401403 ObCommand_Repl -> runRepl
404+ ObCommand_Watch -> inNixShell' $ static runWatch
402405 ObCommand_Upgrade branch -> do
403406 upgradeObelisk "." branch
404407 ObCommand_Internal icmd -> case icmd of
lib/command/src/Obelisk/Command/Run.hs+5
@@ -46,6 +46,11 @@ runRepl = do
4646 withGhciScript pkgs $ \dotGhciPath -> do
4747 runGhciRepl dotGhciPath
4848
49+runWatch :: MonadObelisk m => m ()
50+runWatch = do
51+ pkgs <- getLocalPkgs
52+ withGhciScript pkgs $ \dotGhciPath -> runGhcid dotGhciPath Nothing
53+
4954-- | Relative paths to local packages of an obelisk project
5055-- TODO a way to query this
5156getLocalPkgs :: Applicative f => f [FilePath]