whitespace

1 files changed, 9 insertions, 9 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index bd6de27..bc3af6a 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -260,11 +260,11 @@ data SpecError = SpecENone String
 
 -- | parseSpec3 - Parse a key specification.
 parseSpec3 :: Maybe MatchingField -> String -> Either SpecError Spec
-parseSpec3 maybeExpecting spec@(wordsBy '/' -> fields) = 
-  tooBigError maybeExpecting =<< applyContext maybeExpecting . fixUpSubstrMatch <$> 
+parseSpec3 maybeExpecting spec@(wordsBy '/' -> fields) =
+  tooBigError maybeExpecting =<< applyContext maybeExpecting . fixUpSubstrMatch <$>
     case fields of
         []         -> Left (SpecENone spec)
-        xs@[t]     -> 
+        xs@[t]     ->
                   let ds = [0]
                       x  = l ds xs
                       getTup1 [x] = tupSection1 (adjustPos x maybeExpecting) x
@@ -272,10 +272,10 @@ parseSpec3 maybeExpecting spec@(wordsBy '/' -> fields) =
                           tupSection1 0 = (AnyMatch,AnyMatch,)
                           tupSection1 1 = (AnyMatch,,AnyMatch)
                           tupSection1 2 = (,AnyMatch,AnyMatch)
-                          tupSection1 _ = tupSection1 0 
+                          tupSection1 _ = tupSection1 0
                       in if all fst x then Right $ getTup1 (map (fst . snd) x)
                                       else Left $ mismatch x
-        xs@[u,t]   -> 
+        xs@[u,t]   ->
                   let ds = [1,0]
                       x  = l ds xs
                       getTup2 [u,t] = indexHole (head (filter (`notElem` gots [u,t]) [0..2])) u t
@@ -312,7 +312,7 @@ parseSpec3 maybeExpecting spec@(wordsBy '/' -> fields) =
 
               gotIndex :: Int -> SingleKeySpec -> Int
               gotIndex dflt (SubstringMatch (Just got) _) = fromEnum got
-              gotIndex dflt _ = dflt 
+              gotIndex dflt _ = dflt
 
               -- FIXME: This throws an exception if input is
               --        not an erroneous SubstringMatch.
@@ -341,7 +341,7 @@ parseSpec3 maybeExpecting spec@(wordsBy '/' -> fields) =
               applyContext (Just GroupIDField) ((AnyMatch,u,x)) = (u,AnyMatch,x)
               applyContext (Just GroupIDField) x = x
 
-              --applyContext (Just UserIDField) (Right (g,u,x)) = Left $ 
+              --applyContext (Just UserIDField) (Right (g,u,x)) = Left $
               --  SpecEMissMatch (getStr g) (Just GroupIDField) UserIDField
               tooBigError _ s@(_,_,SubstringMatch (Just GroupIDField) str) = Left $
                 SpecEMissMatch str (Just GroupIDField) KeyTypeField
@@ -411,7 +411,7 @@ filterNewSubs fname spec (KeyData p sigs uids subs) = KeyData p sigs uids subs'
     subkeySpec (KeyGrip grip,Nothing) = (matchAll, KeyGrip grip)
     subkeySpec (topspec,Just mtag)    = (topspec , KeyTag (packet p) mtag)
 
-    match spec mps 
+    match spec mps
                = not . null
                . snd
                . seek_key spec
@@ -1241,7 +1241,7 @@ getHomeDir protohome = do
 
 #if MIN_VERSION_base(4,6,0)
 #else
-lookupEnv :: String -> IO (Maybe String) 
+lookupEnv :: String -> IO (Maybe String)
 lookupEnv var =
     handleIO_ (return Nothing) $ fmap Just (getEnv var)
 #endif