Add link to repository

mkoppmann · Sep 24, 2019 · 93faf2c · 93faf2c
1 parent f0f5ab4
commit 93faf2c
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Main.elm b/src/Main.elm
@@ -3,7 +3,7 @@ module Main exposing (Model, Msg(..), init, main, update, view)
 import Browser
 import Cvss exposing (..)
 import Dict exposing (Dict)
-import Html exposing (Attribute, Html, a, button, code, div, input, li, text, ul)
+import Html exposing (Attribute, Html, a, button, code, div, input, li, small, text, ul)
 import Html.Attributes exposing (..)
 import Html.Events exposing (onClick, onInput)
 import Maybe.Extra exposing (values)
@@ -159,6 +159,9 @@ view model =
             , button [ onClick NewRandomVector ] [ text "Get random vector" ]
             ]
         , div [] <| viewVector model.vector
+        , small []
+            [ a [ href "https://github.com/mkoppmann/wtcvss" ] [ text "Source Code" ]
+            ]
         ]