Add comments

TimOrme · Apr 8, 2023 · dacb105 · dacb105
1 parent 81987c9
commit dacb105
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/elm/src/Main.elm b/elm/src/Main.elm
@@ -354,6 +354,8 @@ getLastListItem myList =
             { time = 0, epa = 0, pm25 = 0, pm10 = 0 }
 
 
+{-| Convert HTTP error to a string.
+-}
 errorToString : Http.Error -> String
 errorToString error =
     case error of
@@ -379,6 +381,8 @@ errorToString error =
             errorMessage
 
 
+{-| Conditionally display some block of HTML
+-}
 htmlIf : Html msg -> Bool -> Html msg
 htmlIf el cond =
     if cond then