Do not add more than one space when editing name

1 files changed, 5 insertions, 2 deletions

diff --git a/src/Update/UpdateEdition.elm b/src/Update/UpdateEdition.elm
index 911a4c1..d94bd1e 100644
--- a/src/Update/UpdateEdition.elm
+++ b/src/Update/UpdateEdition.elm
@@ -3,7 +3,8 @@ module Update.UpdateEdition
   , EditionAction(..)
   ) where
 
-import Char (..)
+import Char
+import Char (KeyCode)
 
 import Model.Edition.Edition (..)
 
@@ -25,6 +26,8 @@ updateEdition action edition =
     AddChar keyCode ->
       case keyCodeToChar edition.kind keyCode of
         Just char ->
-          { edition | chars <- char :: edition.chars }
+          if keyCode == 32 && maybeHead edition.chars == Just (Char.fromCode 32)
+            then edition
+            else { edition | chars <- char :: edition.chars }
         Nothing ->
           edition