d376ce1 · obelisk · git.iko.soy

lib/command/src/Obelisk/Command.hs+2−2

compare with master

unifiedsplit

@@ -159,8 +159,8 @@ ob = \case

159 let dotGhci = unlines

160 [ ":set args --quiet --port " <> show freePort

161 , ":set -i" <> intercalate ":" (mconcat hsSrcDirs)

162− , ":add Backend.App Frontend.App"

162+ , ":add Backend Frontend"

163− , ":module + Control.Concurrent Obelisk.Widget.Run Frontend.App Backend.App"

163+ , ":module + Control.Concurrent Obelisk.Widget.Run Frontend Backend"

164 ]

165 testCmd = unlines

166 [ "backendId <- forkIO backend"

skeleton/backend/backend.cabal+1−1

@@ -9,7 +9,7 @@ library

9 , common

10 , obelisk-backend

11 exposed-modules:

12− Backend.App

12+ Backend

13 ghc-options: -Wall

14

15executable backend

skeleton/backend/src/Backend/App.hs → skeleton/backend/src/Backend.hsrenamed+1−1

@@ -1,4 +1,4 @@

1−module Backend.App where

1+module Backend where

2

3import Common.Api

4import qualified Obelisk.Backend as Ob

skeleton/frontend/frontend.cabal+1−1

@@ -11,7 +11,7 @@ library

11 , obelisk-run-frontend

12 , text

13 exposed-modules:

14− Frontend.App

14+ Frontend

15 ghc-options: -Wall

16

17executable frontend

skeleton/frontend/src/Frontend/App.hs → skeleton/frontend/src/Frontend.hsrenamed+1−1

@@ -1,7 +1,7 @@

1{-# LANGUAGE OverloadedStrings #-}

2{-# LANGUAGE TypeApplications #-}

3{-# LANGUAGE DataKinds #-}

4−module Frontend.App where

4+module Frontend where

5

6import Reflex.Dom

7import Static