Merge pull request #7 from lpil/lp/camel

snake_case -> camelCase

Author: j14159

src/option.alp

@@ -7,7 +7,9 @@ export_type option
 
 export some/1, map/2, orElse/2, flatten/1, flatMap/2
 
-type option 'a = Some 'a | None
+type option 'a
+  = Some 'a
+  | None
 
 {- Convenience method to generate a non-empty option.
  -}
@@ -35,12 +37,12 @@ test "Applying `some` to a literal value yields a non-empty option" =
    ```map (fn x -> x + x) Some 2```
 
    The output type is dependent on the supplied function so if we have a function
-   `int_to_string` with the type `int -> string`, the following will yield an
+   `intToString` with the type `int -> string`, the following will yield an
    `option string`:
 
    ```
    -- the result will be Some "2":
-   map int_to_string Some 2```
+   map intToString Some 2```
    ```
  -}
 val map 'a 'b : fn (fn 'a -> 'b) (option 'a) -> option 'b

src/tuple.alp

@@ -8,7 +8,7 @@ use all the built-in syntax for records.
 
 module tuple
 
-export first/1, second/1, map_first/2, map_second/2, tuple/2
+export first/1, second/1, mapFirst/2, mapSecond/2, tuple/2
 
 
 {-| Extract the first value from a tuple.
@@ -45,27 +45,27 @@ test "second example 2" =
 
 {-| Transform the first value in a tuple.
 
-    map_first (fn x -> x + 1) (0, 0) == (1, 0)
+    mapFirst (fn x -> x + 1) (0, 0) == (1, 0)
 -}
-val map_first 'a 'b 'aa : fn (fn 'a -> 'aa) ('a, 'b) -> ('aa, 'b)
-let map_first func (x, y) =
+val mapFirst 'a 'b 'aa : fn (fn 'a -> 'aa) ('a, 'b) -> ('aa, 'b)
+let mapFirst func (x, y) =
   (func x, y)
 
-test "map_first" =
-  let result = map_first (fn x -> x + 1) (0, 0) in
+test "mapFirst" =
+  let result = mapFirst (fn x -> x + 1) (0, 0) in
   assert.equal result (1, 0)
 
 
 {-| Transform the second value in a tuple.
 
-    map_second (fn x -> x + 1) (0, 0) == (0, 1)
+    mapSecond (fn x -> x + 1) (0, 0) == (0, 1)
 -}
-val map_second 'a 'b 'bb : fn (fn 'b -> 'bb) ('a, 'b) -> ('a, 'bb)
-let map_second func (x, y) =
+val mapSecond 'a 'b 'bb : fn (fn 'b -> 'bb) ('a, 'b) -> ('a, 'bb)
+let mapSecond func (x, y) =
   (x, func y)
 
-test "map_second" =
-  let result = map_second (fn x -> x + 1) (0, 0) in
+test "mapSecond" =
+  let result = mapSecond (fn x -> x + 1) (0, 0) in
   assert.equal result (0, 1)