mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

more FlexibleContexts

Browse source
This commit is contained in:
Joey Hess 2015-05-10 15:54:58 -04:00
parent 082b1590ce
commit 26ac0753c1
5 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/Ssh.hs
View file

@ -6,7 +6,7 @@
-}
{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE CPP, FlexibleContexts #-}
module Assistant.WebApp.Configurators.Ssh where
@ -103,7 +103,7 @@ sshInputAForm hostnamefield d = normalize <$> gen
, ("existing ssh key", ExistingSshKey)
]
check_username = checkBool (all (`notElem` "/:@ \t") . T.unpack)
check_username = checkBool (all (`notElem` ("/:@ \t" :: String)) . T.unpack)
bad_username textField
bad_username = "bad user name" :: Text