@@ -2,26 +2,24 @@ module Main where
22
33import Prelude
44
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 )
87import 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 )
1111
12- import Data.Date (Now ())
13- import Data.Functor.Coproduct (Coproduct ())
12+ import Data.Functor.Coproduct (Coproduct )
1413import Data.Maybe (Maybe (..), fromMaybe )
15- import Data.NaturalTransformation (Natural ())
1614
1715import Halogen as H
1816import Halogen.HTML.Indexed as HH
1917import Halogen.Util (runHalogenAff , awaitBody )
2018
2119import Ace.Editor as Editor
2220import 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 )
2523
2624data Query a
2725 = UpdateText a
@@ -40,7 +38,7 @@ type AceSlot = Unit
4038type StateP g = H.ParentState State AceState Query AceQuery g AceSlot
4139type QueryP = Coproduct Query (H.ChildF AceSlot AceQuery )
4240type 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 )
4442type MainAff = Aff MainEffects
4543type MainDSL = H.ParentDSL State AceState Query AceQuery MainAff AceSlot
4644
@@ -62,7 +60,7 @@ ui = H.parentComponent { render, eval, peek: Just (peek <<< H.runChildF) }
6260 Editor .setValue state.text Nothing editor
6361 pure unit
6462
65- eval :: Natural Query MainDSL
63+ eval :: Query ~> MainDSL
6664 eval (UpdateText next) =
6765 pure next
6866
0 commit comments