Skip to content

Commit eee71b1

Browse files
authored
Merge pull request #18 from justinwoo/compiler/0.12
define lifted console functions
2 parents 84ff5cf + 015e2de commit eee71b1

File tree

1 file changed

+31
-0
lines changed

1 file changed

+31
-0
lines changed

src/Effect/Class/Console.purs

Lines changed: 31 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,31 @@
1+
module Effect.Class.Console where
2+
3+
import Data.Function ((<<<))
4+
import Data.Show (class Show)
5+
import Data.Unit (Unit)
6+
import Effect.Class (class MonadEffect, liftEffect)
7+
import Effect.Console as EffConsole
8+
9+
log :: forall m. MonadEffect m => String -> m Unit
10+
log = liftEffect <<< EffConsole.log
11+
12+
logShow :: forall m a. MonadEffect m => Show a => a -> m Unit
13+
logShow = liftEffect <<< EffConsole.logShow
14+
15+
warn :: forall m. MonadEffect m => String -> m Unit
16+
warn = liftEffect <<< EffConsole.warn
17+
18+
warnShow :: forall m a. MonadEffect m => Show a => a -> m Unit
19+
warnShow = liftEffect <<< EffConsole.warnShow
20+
21+
error :: forall m. MonadEffect m => String -> m Unit
22+
error = liftEffect <<< EffConsole.error
23+
24+
errorShow :: forall m a. MonadEffect m => Show a => a -> m Unit
25+
errorShow = liftEffect <<< EffConsole.errorShow
26+
27+
info :: forall m. MonadEffect m => String -> m Unit
28+
info = liftEffect <<< EffConsole.info
29+
30+
infoShow :: forall m a. MonadEffect m => Show a => a -> m Unit
31+
infoShow = liftEffect <<< EffConsole.infoShow

0 commit comments

Comments
 (0)