@@ -38,7 +38,7 @@ run = do
38 pkgs <- getLocalPkgs
38 pkgs <- getLocalPkgs
39 withGhciScript pkgs $ \dotGhciPath -> do
39 withGhciScript pkgs $ \dotGhciPath -> do
40 freePort <- getFreePort
40 freePort <- getFreePort
41− runGhcid dotGhciPath $ Just $ unwords ["main", show freePort]
41+ runGhcid dotGhciPath $ Just $ unwords ["run", show freePort, "Backend.backend", "Frontend.frontend"]
43runRepl :: MonadObelisk m => m ()
43runRepl :: MonadObelisk m => m ()
44runRepl = do
44runRepl = do
@@ -98,7 +98,10 @@ withGhciScript pkgs f = do
99 let dotGhci = unlines
99 let dotGhci = unlines
100 [ ":set -i" <> intercalate ":" (mconcat hsSrcDirs)
100 [ ":set -i" <> intercalate ":" (mconcat hsSrcDirs)
101− , ":load ./devel/Devel.hs" -- TODO more robust filepath
101+ , ":load Backend Frontend"
102+ , "import Obelisk.Run"
103+ , "import qualified Frontend"
104+ , "import qualified Backend"
103 withSystemTempDirectory "ob-ghci" $ \fp -> do
106 withSystemTempDirectory "ob-ghci" $ \fp -> do
104 let dotGhciPath = fp </> ".ghci"
107 let dotGhciPath = fp </> ".ghci"