Monospace test descriptions

elm-community · Dec 5, 2017 · 8235004 · 8235004
1 parent 815523f
commit 8235004
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/View.elm b/src/View.elm
@@ -266,6 +266,9 @@ code : style -> String -> Element style variations msg
 code style str =
     node "pre" <|
         el style
-            [ inlineStyle [ ( "white-space", "pre-wrap" ) ]
+            [ inlineStyle
+                [ ( "white-space", "pre-wrap" )
+                , ( "font-family", "monospace" )
+                ]
             ]
             (text str)