diff options
| author | joe <joe@jerkface.net> | 2016-04-29 21:54:41 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2016-04-29 21:54:41 -0400 |
| commit | c2cf1002fa6f48cc699f6c5925272a2ddb28bd64 (patch) | |
| tree | ce77b6f3b32b304e1b0f65670b547bb4e463c244 /lib/KeyRing.hs | |
| parent | 20d17eef898d342ef62812d2b74b590e73cc1180 (diff) | |
build fixes
Diffstat (limited to 'lib/KeyRing.hs')
| -rw-r--r-- | lib/KeyRing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index 1f193b3..77d6973 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs | |||
| @@ -1068,7 +1068,7 @@ parseSpec3 maybeExpecting spec@(wordsBy '/' -> fields) = | |||
| 1068 | valid :: SingleKeySpec -> Int -> Bool | 1068 | valid :: SingleKeySpec -> Int -> Bool |
| 1069 | valid spec dflt = ("tuc"::String) !! gotIndex dflt spec `notElem` forbidden (gotIndex dflt spec) | 1069 | valid spec dflt = ("tuc"::String) !! gotIndex dflt spec `notElem` forbidden (gotIndex dflt spec) |
| 1070 | where | 1070 | where |
| 1071 | forbidden 0 = "uc" | 1071 | forbidden 0 = "uc" :: [Char] |
| 1072 | forbidden 1 = "tc" | 1072 | forbidden 1 = "tc" |
| 1073 | forbidden 2 = "tu" | 1073 | forbidden 2 = "tu" |
| 1074 | 1074 | ||