elm-rails 0.1.2 → 0.2.0

data/test/rails5.0/elm-stuff/packages/elm-lang/core/5.0.0/src/Date.elm

@@ -0,0 +1,150 @@
+module Date exposing
+  ( Date, fromString, toTime, fromTime
+  , year, month, Month(..)
+  , day, dayOfWeek, Day(..)
+  , hour, minute, second, millisecond
+  , now
+  )
+
+{-| Library for working with dates. Email the mailing list if you encounter
+issues with internationalization or locale formatting.
+
+# Dates
+@docs Date, now
+
+# Conversions
+@docs fromString, toTime, fromTime
+
+# Extractions
+@docs year, month, Month, day, dayOfWeek, Day, hour, minute, second, millisecond
+
+-}
+
+import Native.Date
+import Task exposing (Task)
+import Time exposing (Time)
+import Result exposing (Result)
+
+
+
+-- DATES
+
+
+{-| Representation of a date.
+-}
+type Date = Date
+
+
+{-| Get the `Date` at the moment when this task is run.
+-}
+now : Task x Date
+now =
+  Task.map fromTime Time.now
+
+
+
+-- CONVERSIONS AND EXTRACTIONS
+
+
+{-| Represents the days of the week.
+-}
+type Day = Mon | Tue | Wed | Thu | Fri | Sat | Sun
+
+
+{-| Represents the month of the year.
+-}
+type Month
+    = Jan | Feb | Mar | Apr
+    | May | Jun | Jul | Aug
+    | Sep | Oct | Nov | Dec
+
+
+{-| Attempt to read a date from a string.
+-}
+fromString : String -> Result String Date
+fromString =
+  Native.Date.fromString
+
+
+{-| Convert a `Date` to a time in milliseconds.
+
+A time is the number of milliseconds since
+[the Unix epoch](http://en.wikipedia.org/wiki/Unix_time).
+-}
+toTime : Date -> Time
+toTime =
+  Native.Date.toTime
+
+
+{-| Convert a time in milliseconds into a `Date`.
+
+A time is the number of milliseconds since
+[the Unix epoch](http://en.wikipedia.org/wiki/Unix_time).
+-}
+fromTime : Time -> Date
+fromTime =
+  Native.Date.fromTime
+
+
+{-| Extract the year of a given date. Given the date 23 June 1990 at 11:45AM
+this returns the integer `1990`.
+-}
+year : Date -> Int
+year =
+  Native.Date.year
+
+
+{-| Extract the month of a given date. Given the date 23 June 1990 at 11:45AM
+this returns the month `Jun` as defined below.
+-}
+month : Date -> Month
+month =
+  Native.Date.month
+
+
+{-| Extract the day of a given date. Given the date 23 June 1990 at 11:45AM
+this returns the integer `23`.
+-}
+day : Date -> Int
+day =
+  Native.Date.day
+
+
+{-| Extract the day of the week for a given date. Given the date 23 June
+1990 at 11:45AM this returns the day `Sat` as defined below.
+-}
+dayOfWeek : Date -> Day
+dayOfWeek =
+  Native.Date.dayOfWeek
+
+
+{-| Extract the hour of a given date. Given the date 23 June 1990 at 11:45AM
+this returns the integer `11`.
+-}
+hour : Date -> Int
+hour =
+  Native.Date.hour
+
+
+{-| Extract the minute of a given date. Given the date 23 June 1990 at 11:45AM
+this returns the integer `45`.
+-}
+minute : Date -> Int
+minute =
+  Native.Date.minute
+
+
+{-| Extract the second of a given date. Given the date 23 June 1990 at 11:45AM
+this returns the integer `0`.
+-}
+second : Date -> Int
+second =
+  Native.Date.second
+
+
+{-| Extract the millisecond of a given date. Given the date 23 June 1990 at 11:45:30.123AM
+this returns the integer `123`.
+-}
+millisecond : Date -> Int
+millisecond =
+  Native.Date.millisecond

data/test/rails5.0/elm-stuff/packages/elm-lang/core/5.0.0/src/Debug.elm

@@ -0,0 +1,62 @@
+module Debug exposing
+  ( log
+  , crash
+  )
+
+{-| This library is for investigating bugs or performance problems. It should
+*not* be used in production code.
+
+# Debugging
+@docs log, crash
+-}
+
+import Native.Debug
+
+
+{-| Log a tagged value on the developer console, and then return the value.
+
+    1 + log "number" 1        -- equals 2, logs "number: 1"
+    length (log "start" [])   -- equals 0, logs "start: []"
+
+Notice that `log` is not a pure function! It should *only* be used for
+investigating bugs or performance problems.
+-}
+log : String -> a -> a
+log =
+  Native.Debug.log
+
+
+{-| Crash the program with an error message. This is an uncatchable error,
+intended for code that is soon-to-be-implemented. For example, if you are
+working with a large ADT and have partially completed a case expression, it may
+make sense to do this:
+
+    type Entity = Ship | Fish | Captain | Seagull
+
+    drawEntity entity =
+      case entity of
+        Ship ->
+          ...
+
+        Fish ->
+          ...
+
+        _ ->
+          Debug.crash "TODO"
+
+The Elm compiler recognizes each `Debug.crash` and when you run into it at
+runtime, the error will point to the corresponding module name and line number.
+For `case` expressions that ends with a wildcard pattern and a crash, it will
+also show the value that snuck through. In our example, that'd be `Captain` or
+`Seagull`.
+
+**Use this if** you want to do some testing while you are partway through
+writing a function.
+
+**Do not use this if** you want to do some typical try-catch exception handling.
+Use the [`Maybe`](Maybe) or [`Result`](Result) libraries instead.
+-}
+crash : String -> a
+crash =
+  Native.Debug.crash
+