Using elm-format for all files

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

@@ -1,25 +1,43 @@
-module Data.Priority exposing (..)
+module Data.Priority exposing
+    ( Priority(..)
+    , all
+    , fromString
+    , toName
+    )
+
 
 type Priority
     = High
     | Low
 
-fromString: String -> Maybe Priority
+
+fromString : String -> Maybe Priority
 fromString str =
     let
-        s = String.toLower str
+        s =
+            String.toLower str
     in
-        case s of
-            "low" -> Just Low
-            "high" -> Just High
-            _ -> Nothing
+    case s of
+        "low" ->
+            Just Low
 
-toName: Priority -> String
+        "high" ->
+            Just High
+
+        _ ->
+            Nothing
+
+
+toName : Priority -> String
 toName lang =
     case lang of
-        Low -> "Low"
-        High-> "High"
+        Low ->
+            "Low"
 
-all: List Priority
+        High ->
+            "High"
+
+
+all : List Priority
 all =
     [ Low, High ]