Using elm-format for all files

modules/webapp/src/main/elm/Data/Direction.elm

@@ -1,45 +1,72 @@
-module Data.Direction exposing (..)
+module Data.Direction exposing
+    ( Direction(..)
+    , all
+    , fromString
+    , icon
+    , iconFromMaybe
+    , iconFromString
+    , toString
+    )
+
 
 type Direction
     = Incoming
     | Outgoing
 
-fromString: String -> Maybe Direction
+
+fromString : String -> Maybe Direction
 fromString str =
     case String.toLower str of
-        "outgoing" -> Just Outgoing
-        "incoming" -> Just Incoming
-        _ -> Nothing
+        "outgoing" ->
+            Just Outgoing
 
-all: List Direction
+        "incoming" ->
+            Just Incoming
+
+        _ ->
+            Nothing
+
+
+all : List Direction
 all =
     [ Incoming
     , Outgoing
     ]
 
-toString: Direction -> String
+
+toString : Direction -> String
 toString dir =
     case dir of
-        Incoming -> "Incoming"
-        Outgoing -> "Outgoing"
+        Incoming ->
+            "Incoming"
 
-icon: Direction -> String
+        Outgoing ->
+            "Outgoing"
+
+
+icon : Direction -> String
 icon dir =
     case dir of
-        Incoming -> "level down alternate icon"
-        Outgoing -> "level up alternate icon"
+        Incoming ->
+            "level down alternate icon"
 
-unknownIcon: String
+        Outgoing ->
+            "level up alternate icon"
+
+
+unknownIcon : String
 unknownIcon =
     "question circle outline icon"
 
-iconFromString: String -> String
+
+iconFromString : String -> String
 iconFromString dir =
     fromString dir
         |> Maybe.map icon
         |> Maybe.withDefault unknownIcon
 
-iconFromMaybe: Maybe String -> String
+
+iconFromMaybe : Maybe String -> String
 iconFromMaybe ms =
     Maybe.map iconFromString ms
         |> Maybe.withDefault unknownIcon