@@ -38,7 +38,7 @@ run = do
3838 pkgs <- getLocalPkgs
3939 withGhciScript pkgs $ \dotGhciPath -> do
4040 freePort <- getFreePort
41− runGhcid dotGhciPath $ Just $ unwords ["main", show freePort]
41+ runGhcid dotGhciPath $ Just $ unwords ["run", show freePort, "Backend.backend", "Frontend.frontend"]
4242
4343runRepl :: MonadObelisk m => m ()
4444runRepl = do
@@ -98,7 +98,10 @@ withGhciScript pkgs f = do
9898
9999 let dotGhci = unlines
100100 [ ":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"
102105 ]
103106 withSystemTempDirectory "ob-ghci" $ \fp -> do
104107 let dotGhciPath = fp </> ".ghci"