@@ -35,7 +35,7 @@ run = do
3535 pkgs <- getLocalPkgs
3636 withGhciScript pkgs $ \dotGhciPath -> do
3737 freePort <- getFreePort
38− runGhcid dotGhciPath $ Just $ unwords ["Obelisk.Run.run", show freePort, "backend", "frontend"]
38+ runGhcid dotGhciPath $ Just $ unwords ["main", show freePort]
3939
4040runRepl :: MonadObelisk m => m ()
4141runRepl = do
@@ -89,8 +89,7 @@ withGhciScript pkgs f = do
8989
9090 let dotGhci = unlines
9191 [ ":set -i" <> intercalate ":" (mconcat hsSrcDirs)
92− , ":add Backend Frontend"
93− , ":module + Obelisk.Run Frontend Backend"
92+ , ":load ./devel/Devel.hs" -- TODO more robust filepath
9493 ]
9594 withSystemTempDirectory "ob-ghci" $ \fp -> do
9695 let dotGhciPath = fp </> ".ghci"