@@ -2,26 +2,24 @@ module Main where
2
2
3
3
import Prelude
4
4
5
- import Control.Bind ((=<<))
6
- import Control.Monad.Aff (Aff ())
7
- import Control.Monad.Eff (Eff ())
5
+ import Control.Monad.Aff (Aff )
6
+ import Control.Monad.Eff (Eff )
8
7
import Control.Monad.Eff.Class (liftEff )
9
- import Control.Monad.Eff.Random (RANDOM ())
10
- import Control.Monad.Eff.Ref (REF ())
8
+ import Control.Monad.Eff.Random (RANDOM )
9
+ import Control.Monad.Eff.Ref (REF )
10
+ import Control.Monad.Eff.Now (NOW )
11
11
12
- import Data.Date (Now ())
13
- import Data.Functor.Coproduct (Coproduct ())
12
+ import Data.Functor.Coproduct (Coproduct )
14
13
import Data.Maybe (Maybe (..), fromMaybe )
15
- import Data.NaturalTransformation (Natural ())
16
14
17
15
import Halogen as H
18
16
import Halogen.HTML.Indexed as HH
19
17
import Halogen.Util (runHalogenAff , awaitBody )
20
18
21
19
import Ace.Editor as Editor
22
20
import Ace.EditSession as Session
23
- import Ace.Halogen.Component (AceState () , AceQuery (TextChanged, GetText), aceConstructor )
24
- import Ace.Types (ACE () , Editor () )
21
+ import Ace.Halogen.Component (AceState , AceQuery (TextChanged, GetText), aceConstructor )
22
+ import Ace.Types (ACE , Editor )
25
23
26
24
data Query a
27
25
= UpdateText a
@@ -40,7 +38,7 @@ type AceSlot = Unit
40
38
type StateP g = H.ParentState State AceState Query AceQuery g AceSlot
41
39
type QueryP = Coproduct Query (H.ChildF AceSlot AceQuery )
42
40
type MainHtml g = H.ParentHTML AceState Query AceQuery g AceSlot
43
- type MainEffects = H.HalogenEffects (random :: RANDOM , now :: Now , ref :: REF , ace :: ACE )
41
+ type MainEffects = H.HalogenEffects (random :: RANDOM , now :: NOW , ref :: REF , ace :: ACE )
44
42
type MainAff = Aff MainEffects
45
43
type MainDSL = H.ParentDSL State AceState Query AceQuery MainAff AceSlot
46
44
@@ -62,7 +60,7 @@ ui = H.parentComponent { render, eval, peek: Just (peek <<< H.runChildF) }
62
60
Editor .setValue state.text Nothing editor
63
61
pure unit
64
62
65
- eval :: Natural Query MainDSL
63
+ eval :: Query ~> MainDSL
66
64
eval (UpdateText next) =
67
65
pure next
68
66
0 commit comments