Implementing log

Author: ethul

MODULE.md

@@ -363,6 +363,30 @@
     setPath :: forall e. String -> Location -> LocEff e String
 
 
+## Module Angular.Log
+
+### Types
+
+    data Log :: *
+
+    type LogEff e = Eff (nglog :: NgLog | e) Unit
+
+    data NgLog :: !
+
+
+### Values
+
+    debug :: forall e a. a -> Log -> LogEff e
+
+    error :: forall e a. a -> Log -> LogEff e
+
+    info :: forall e a. a -> Log -> LogEff e
+
+    log :: forall e a. a -> Log -> LogEff e
+
+    warn :: forall e a. a -> Log -> LogEff e
+
+
 ## Module Angular.Module
 
 ### Types

gulpfile.js

@@ -6,7 +6,7 @@ var gulp = require('gulp')
   , http = require('http')
   , nstatic = require('node-static')
   , config = {
-      clean: ['dist', 'js', 'externs'],
+      clean: ['dist', '.psci_modules'],
       purescript: {
         src: [
           'bower_components/purescript-*/src/**/*.purs*',

src/Angular/Log.purs

@@ -0,0 +1,42 @@
+module Angular.Log
+  ( NgLog()
+  , Log()
+  , LogEff()
+  , log
+  , info
+  , warn
+  , error
+  , debug
+  ) where
+
+import Control.Monad.Eff
+import Data.Function
+
+foreign import data Log :: *
+
+foreign import data NgLog :: !
+
+type LogEff e = Eff (nglog :: NgLog | e) Unit
+
+foreign import logFn
+  " function logFn(fn, message, $log){ \
+  \   return function(){ \
+  \     return $log[fn](expression); \
+  \   }; \
+  \ } "
+  :: forall e a. Fn3 String a Log (LogEff e)
+
+log :: forall e a. a -> Log -> LogEff e
+log = runFn3 logFn "log"
+
+info :: forall e a. a -> Log -> LogEff e
+info = runFn3 logFn "info"
+
+warn :: forall e a. a -> Log -> LogEff e
+warn = runFn3 logFn "warn"
+
+error :: forall e a. a -> Log -> LogEff e
+error = runFn3 logFn "error"
+
+debug :: forall e a. a -> Log -> LogEff e
+debug = runFn3 logFn "debug"